program Project2;
uses
QForms,
Unit1 in 'Unit1.pas' ,
Unit2 in 'Unit2.pas' ;
{$R *.res}
begin
Application.Initialize;
Form1 := TForm1.Create(Application);
if (Form1.ShowModal = 1) then
begin
Form1.Free;
Form2 := TForm2.Create(Application);
Form2.ShowModal;
end;
Application.Run;
end.