急急急！！！如何得到当前工程下所有窗口名列表

Question

某个工程project1,建好了n个窗口 from1,form2,form3...form_n  
如何得到当前工程下所有窗口名列表,最好能在下拉框中选择出来！！！在线等待

Answer 1

var
  I: Integer;
begin
  for I := 0 to Screen.FormCount-1 do
    Self.ComboBox1.Items.Add(Screen.Forms[I].Name);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Self.ComboBox1.Items.Clear;
  for I := 0 to Screen.FormCount-1 do
    Self.ComboBox1.Items.AddObject(Screen.Forms[I].Name, Screen.Forms[I]);
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  TForm(Self.ComboBox1.Items.Objects[Self.ComboBox1.ItemIndex]).Show;
end;