//我试过了，可以的
program Project1;
uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
try
form2 := Tform2.Create(Application);
form2.Show;
Application.ProcessMessages;
Sleep(2000);
Form2.Close;
finally
form2.Free;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
