1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

program pBTM;

uses
  Forms,
  SysUtils,
  Main in 'Main.pas' {BTM},
  SplashScreen in 'SplashScreen.pas' {SplashScreenForm};

{$R *.res}

begin
  SplashScreenForm := TSplashScreenForm.Create(Application);

  try
    SplashScreenForm.Show;
    SplashScreenForm.Update;

     // Solange der LogIn nicht erfolgreich halte das Fenster offen
    While not (Access) do Application.HandleMessage;

    Application.Initialize;
    Application.CreateForm(TBTM, BTM);

    SplashScreenForm.Hide;
  finally
    SplashScreenForm.Free;
  end;

  Application.Run;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

begin
  // SplashScreen Fenster erstellen
  SplashScreenForm := TSplashScreenForm.Create(Application);

  try
    // SplashScreen Fenster anzeigen
    SplashScreenForm.ShowModal;

    case SplashScreenForm.ModalResult of
       mrOk: begin
                Application.Initialize;
                Application.CreateForm(TBTM, BTM);
                Application.Run;
             end;
       mrAbort: MessageDlg('Sie haben alle 3 Versuche verbraucht!', mtError, [mbOk], 0);
    end;

  finally
    SplashScreenForm.Free;
  end;
end.					

1:
2:
3:
4:
5:
6:
7:

Begin
  Application.Initialize;
  If LoginDialogModule.LoginCorrect Then Begin
    Application.CreateForm (TMainForm, MainForm);
    Application.Run;
  End
End.