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

 type TVorFormular = class(TForm)
  ....
 end;

 function zeigeVorformular : boolean; 

implementation

function zeigeVorformular : boolean;
begin
 result := True;
 Application.CreateForm(TVorFormular, VorFormular);
 try
   VorFormular.ShowModal;
   result := PrüfungenOk;
 finally
  VorFormular.Free;
 end;
end;

// im Hauptmenu dann einfach als erstes
 if not zeigeVorformular then
  Close;					

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

//Projekt-Quelltext
begin
  frmCheck := TfrmCheck.Create(Application);
  frmCheck.Show;
  frmCheck.Update;
  //...
end;					

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

procedure TfrmCheck.FormShow(Sender: TObject);
begin
    //... Aufgaben abarbeiten

    if not LError.Visible then
    begin
      frmMain.Show;
    end;
end;					

1:
2:

 if not zeigeVorformular then
  Close;					

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

begin
  frmCheck := TfrmCheck.Create(Application);
  frmCheck.Show;
  frmCheck.Update;

  Application.Initialize;
  ...
end.					

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

procedure TfrmCheck.FormShow(Sender: TObject);
begin
   //Überprüfen

  if not LError.Visible then  //Das ist mein Prüf-Ergebnis: Entweder: Programm beenden, oder Button-Visible schalten, der dann des Hauptformular öffnet
  begin
    BtnOpen.Visible := true;
  end;  
end;					

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

procedure TfrmMain.FormShow(Sender: TObject);
begin
  //im Hauptmenü als erstes:
{  if not frmCheck.zeigefrmCheck then
    Close;
}
  //Rest...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function zeigefrmCheck : boolean;
begin
 result := True;
 Application.CreateForm(TfrmCheck, frmCheck);
 try
   frmCheck.ShowModal;
   result := BtnOpen.Visible;
 finally
  frmCheck.Release;
 end;
end;