program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
var
Form2:TForm2;
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Form2:=TForm2.Create(nil);
Form2.ShowModal;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.