Задача на Delphi

[Nariwakula]

Доброго времени суток!
Есть проблемка, сам в программировании не очень силён, нужна помощь)
Вот такое задание:
На форме располагаются компоненты: два компонента ListBox c названиями ИМЕНА, которые содержат женские и мужские имена, два компонента ListBox c названиями ФАМИЛИИ, содержащими женские и мужские фамилии; радиогруппа с опциями "Мужчины" и "Женщины"; метка Label, кнопка Button и кнопка Close. Компоненты ИМЕНА содержат по шесть разных имен, а ФАМИЛИИ – по восемь разных фамилий. Их выбор и нажатие кнопки Button приводят к отображению на метке конкатенации имени и фамилии. В каждый момент на форме отображаются только два списка с именами и фамилиями. Два других списка в этот момент невидимы. Женские сочетания отображаются красным цветом, а мужские - синим. Кнопка Close заканчивает программу.
Если кто знает решение, помогите, может уже где то есть листинг программы!
Заранее благодарен!)

[Mad_Cat]

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    ListBox4: TListBox;
    Label1: TLabel;
    Button1: TButton;
    RG1: TRadioGroup;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure RG1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
case RG1.ItemIndex of
0: begin
    Listbox1.visible:=false;
    Listbox4.Visible:=false;
    Listbox2.visible:=true;
    Listbox3.Visible:=true;
    Label1.Font.Color:=clNavy;
    Label1.Caption:=Listbox2.Items[Listbox2.ItemIndex]+' '+Listbox3.Items[Listbox3.ItemIndex]
   end;
    1: begin
    Listbox1.visible:=true;
    Listbox4.Visible:=true;
    Listbox2.visible:=false;
    Listbox3.Visible:=false;
    Label1.Font.Color:=clRed;
    Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]+' '+Listbox4.Items[Listbox4.ItemIndex]
   end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Rg1.ItemIndex:=0;
Listbox1.visible:=false;
Listbox4.Visible:=false;
Label1.Font.Color:=clNavy;
end;

procedure TForm1.RG1Click(Sender: TObject);
begin
case RG1.ItemIndex of
0: begin
    Listbox1.visible:=false;
    Listbox4.Visible:=false;
    Listbox2.visible:=true;
    Listbox3.Visible:=true;
   end;
    1: begin
    Listbox1.visible:=true;
    Listbox4.Visible:=true;
    Listbox2.visible:=false;
    Listbox3.Visible:=false;
   end;
end;
end;

end.

[Stilet]

А зачем два компонента фамилий?

[Nariwakula]

Сообщение от Stilet

А зачем два компонента фамилий?

один компонет с фамилией один с именем

[Stilet]

один компонет с фамилией один с именем

Ладно... Прохожу мимо...
Я задание не понял.