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

procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists('sowieso.exe') then {blabla ...} else
begin
showmessage('Fehler : Die Datei "sowieso.exe" befindet sich nicht im Verzeichniss !!');
Fehler := true;
close; // Mit Application.terminate funzt es ...
end;                    

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

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fehler=false then
begin // Was geändert und nicht gespeichert ?
  if changed=true then
  begin
   if MessageDlg('Die Einstellungen wurden geändert ! Übernehmen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
    speichern(Form1);
    end; //if changed true
  end;
end;                    

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

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  bFirstRun := True;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  if bFirstRun then begin
    bFirstRun := False;
    //Deine Prüfungen
    if  Fehler then
      Close;
  end;
end;