Naja, wie ich geschrieben habe...
Delphi-Quellcode:
Application.Initialize;
frmLogin := TfrmLogin.Create(nil);
try
if (frmLogin.ShowModal <> mrOk) or (frmLogin.UserName <> 'Test') then
Exit;
finally
frmLogin.Free;
end;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;