Футбольный менеджер comes back, Теперь на Delphi Опции

[cooler]

Продолжаю написание игры футбольный менеджер.
Теперь на Delphi.
Т.к почти еще ничего не знаю надеюсь на вашу помощь.
Для начала: как сделать выбор 1 пункта из нескольких?
(при выборе в зависимости от пункта переменной присваивается значение)
Это могут быть "радио"- кнопки или выбор из списка.
Не могу разобраться как связать фому с unit'ом.

Набросайте пожалуйста как сделать так: см.рис


Вобщем пока проблемы интерфейса.
Ещё:
Как, например, задать background ?

Если есть можно дать ссылку на материал, где это описано.

[cooler]

Скорее всего финальный вопрос в этой теме
Столкнулся с проблемой, при повторном запуске init_footballers , которая из файла считывает информацию и заносит в массив - появляется ошибка.
Насколько разобрался нужен деструктор. Помогите пожалуйста его написать
Описание на всякий случай :

TPeople = object
    age: integer;
    name: string;
    constructor init(AName: string; AnAge: integer);
  end;

  PTFootballer = ^TFootballer;

  TFootballer = object(TPeople)
    code_position: TPosition;
    code_team: integer;
    k,koef_gk,koef_df,koef_md,koef_f: byte;
    price:word;
    acting: TPosition;
    procedure print;
    constructor init(AName: string; AnAge: integer;team, position: string;akoef_gk,akoef_df,akoef_md,akoef_f: byte);
    {procedure print_info(i:integer); }
   function Raschet:word;
    end;

var
  count_footballersk: integer;
  footb_array:array[1..max_footballers] of PTFootballer;

  players,i: integer;
  namets:array[1..20] of string;
  squad,squad2: array[1 .. 20] of PTFootballer;

И сам код:

{-------------------------------------------------------}
constructor TPeople.init(AName: string; AnAge: integer);
begin
  age := AnAge;
  name := AName;
end;

{-------------------------------------------------------}
constructor TFootballer.init(AName: string; AnAge: integer;team, position: string;akoef_gk,akoef_df,akoef_md,akoef_f: byte);
var
  p: TPosition;
  i: integer;
  Aprice:word;
begin
  inherited init(AName, AnAge);
  for p := low(Tposition) to high(TPosition) do
    if s_position[p] = position then begin
      code_position := p;
    end;
  for i := 1 to max_teams do
    if s_team[i] = team then begin
      code_team := i;
     end;
   {k := Ak; }
   koef_gk := Akoef_gk;
   koef_df := Akoef_df;
   koef_md := Akoef_md;
   koef_f := Akoef_f;
   price:=raschet;
end;
{------------------------------------------------------------}

procedure init_footballers(const filename: string);

  function _toint(s: string): integer;
  var _result, _error: integer;
  begin
    val(s, _result, _error);
    _toint := _result;
  end;

  function _copy(var s: string; count: integer): string;
  begin
    _copy := copy(s, 1, pred(count));
    delete(s, 1, count);
  end;

var
  f: text;
  s: string;
  f_n, f_t, f_p: string; f_a,f_ccc, f_cgk, f_cdf, f_cmd, f_cf: integer;
begin
  assign(f, filename); reset(f);

  count_footballers := 0;
  while not seekeof(f) do begin
    inc(count_footballers);
    readln(f, s);

    f_n := _copy(s, pos(' ', s));
    f_a := _toint(_copy(s, pos(' ', s)));
    f_t := _copy(s, pos(' ', s));
    f_p := _copy(s, pos(' ', s));
    f_cgk := _toint(_copy(s, pos(' ', s)));
    f_cdf := _toint(_copy(s, pos(' ', s)));
    f_cmd := _toint(_copy(s, pos(' ', s)));
    f_cf := _toint(s);

    new(
      footb_array[count_footballers],
      init(f_n, f_a, f_t, f_p,f_cgk, f_cdf, f_cmd, f_cf)
    );
  end;
  close(f);
end;

P.S Т.к код остался паскалевский теперь нужен деструктор