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:
31:
32:
33:
34:
35:

procedure THauptformular.FormCreate(Sender: TObject);
var Dateiname:string;Action:TAction;
begin

  If not(AllesVorhanden(Dateiname)) then
   begin
    showmessage('Die Datei '+Dateiname+' ist nicht vorhanden!. Das Spiel wird beendet.');
    EndeFlagge:=True;
    close;
   end;
 ...



procedure THauptformular.FormClose(Sender: TObject; var Action: TCloseAction);
begin

(* EndeFlagge ist gesetzt, wenn ein Fataler Error aufgetreten ist *)
 IF (EndeFlagge) or
    (messageDlg('Wollen sie das Programm wirklich schon beenden?',mtConfirmation,mbOkCancel,6)=1) then
   begin
   try
     If Mp1<>NIL then
      Mp1.free;           //Freigeben der Mediaspieler / der Bilder / der dyn. KI Liste
     If Mp2<>NIL then     //Hier tritt dann ein Fehler auf, wohl weil die                       //Mediaplayer noch nicht erstellt wurden.
       Mp2.free;

     BilderFreigeben(Bilder,Kugel,Spieler);
     Listenabbau;    
  except
  end;
 end
 else
    Action:=caNone;    //auf Benutzerwunsch wird ansonsten keine Aktion ausgeführt -                         es sei denn EndeFlagge ist gesetzt
end;					

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

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.					

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

program Project1;

uses
  Forms, 
  Dialogs, // Für die Message
  SysUtils, // Für FileExists
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  If (not FileExists('C:\lalala.test')) or
     (not FileExists('C:\Uftata.test')) or
     (not FileExists('C:\Mucke.test')) then  // Wenn bestimmte Dateien fehlen
     begin
      ShowMessage('So geht das nicht hier!'); // Message zeigen
      Application.Terminate;                  // Anwendung beenden
     end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.