program Test;
uses
Forms,
MainForm in 'MainForm.pas' {MainFrm},
Login in 'Login.pas' {LoginFrm};
{$R *.RES}
begin
Application.Initialize;
LoginFrm := TLoginFrm.Create(Application);
if LoginFrm.ShowModal = mrOK then
begin
LoginFrm.Free;
Application.CreateForm(TMainFrm, MainFrm);
Application.Run;
end
else
begin
LoginFrm.Free;
Application.Terminate;
end;
end.
