Combobox в делфи

[ПИнасол]

Доброе утро,что-то застрял и никак не могу сдвинуться,ребят подскажите пожалуйста :у меня давно 3 form .как мне можно сделать чтобы при нажатии
на combobox он предлагал мне список форм(список я сделал в items),а при нажатии открывал нужную форму
p.s. заранее спасибо

[GetMax]

procedure TForm1.ComboBox1Select(Sender: TObject);
Var
  Forms : array[0..1] of TForm;
begin
  Forms[0] := Form2;
  Forms[1] := Form3;
  if ComboBox1.ItemIndex <> -1 then
    Forms[ComboBox1.ItemIndex].Show();
end;

[Stilet]

список я сделал в items

Как сделал? Показывай. Можно форму привязать к конкретному элемиенту списка.

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  with Screen do
   for i:=0 to FormCount-1 do
    ListBox1.AddItem(Forms[i].Caption,Forms[i]);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with TListBox(Sender) do
    if ItemIndex<>-1 then TForm(Items.Objects[ItemIndex]).Show;
end;

[ПИнасол]

Проблема решена,использовал совет от GetMax