1:

IF Versuche >= 1 THEN					

1:
2:
3:
4:

TYPE TFrage = RECORD
                       Frage : STRING[200];
                       Antwort: Char;
                    END;					

1:

VAR Frage : ARRAY OF TFrage;					

1:

VAR Frage : ARRAY[0..19] OF TFrage;					

1:

VAR nummer : INTEGER;					

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:
36:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Versuche:=0; 
  //...
  //hier musst Du jetzt noch Dein Array füllen. Ich würde mir ein kleines
  //Programm schreiben, in das Du Frage und Antwort eingeben kannst,
  //und welches alles in eine Datei speichert, die dann hier gelesen wird.
  //...
  nummer:=0;
  Label_Frage.Caption:=Frage[nummer].Frage;
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var antwort: STRING; 
begin 
  Antwort:=edit1.text[1]; 
  IF Antwort =  Frage[nummer].Antwort THEN 
  begin 
    Versuche := 0; 
     inc(nummer);
     Label_Frage.Caption:=Frage[nummer].Frage;
  end ELSE 
  begin 
    IF Versuche <1 THEN 
    begin 
      showmessage('leider Falsch....'); 
      Versuche := Versuche +1 ; //bzw. INC(Versuche) 
    end ELSE 

      IF Versuche >= 1 THEN 
      BEGIN 
      showmessage('Game Over.....'); 
      form1.close; 
    end; 
  end; 
end;					

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

VAR my_file : File of TFrage;
begin
  SetLength(Frage,0);   //Array 'Frage' soll am Anfang 0 Datensätze enthalten
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu
  {$I-}           //Fehlermeldung "ausschalten"
  Reset(my_file); //Datei öffnen
  {$I+}           //Fehlermeldung "einschalten"
  IF IOResult=0 then
  begin //Wurde die Aktion korrekt ausgeführt?
    while not eof(my_file) do  //Solange das Ende der Datei nicht erreicht wurde...
    begin
      SetLength(frage,Length(frage)+1); //Ergänze das Array "Frage" um einen Datensatz
      Read(my_file,frage[High(frage)]); //Lese den gerade erzeugten Datensatz aus der Datei
    end;
    CloseFile(my_file); //Datei wieder schließen
  end;
end;					

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

VAR my_file : File of TFrage;
begin
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu
  {$I-}           //Fehlermeldung "ausschalten"
  ReWrite(my_file); //Datei neu schreiben, ACHTUNG: bestehende Datei wird überschrieben!!!
  {$I+}           //Fehlermeldung "einschalten"
  IF IOResult=0 then
  begin //Wurde die Aktion korrekt ausgeführt?
    for i:=0 TO High(frage) DO //Vom ersten bis zum letzten Datensatz des Arrays 'Frage' ...
    Write(my_file,frage[i]);   //...schreibe den Datensatz in die Datei
    CloseFile(my_file); //Datei wieder schließen
  end;
end;					

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

VAR my_file : File of TFrage; 
begin 
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu 
  {$I-}           //Fehlermeldung "ausschalten" 
  ReWrite(my_file); //Datei neu schreiben, ACHTUNG: bestehende Datei wird überschrieben!!! 
  {$I+}           //Fehlermeldung "einschalten" 
  IF IOResult=0 then 
  begin //Wurde die Aktion korrekt ausgeführt? 
    for i:=0 TO High(frage) DO //Vom ersten bis zum letzten Datensatz des Arrays 'Frage' ... 
    Write(my_file,frage[i]);   //...schreibe den Datensatz in die Datei 
    CloseFile(my_file); //Datei wieder schließen 
  end; 
end;					

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

var Nummer: Integer;

Type TFrage = Record
                         Frage : String;
                         Antwort : char;
         var Frage : Array[1..15] of TFrage;
For Frage:=1 to 15 do begin
      Frage[1].Frage:=.. and Frage[1].Antwort:= .. and  
      nummer = 1 ;// kann man jetzt Frage[1].Frage:=Label1..
         schreiben?............					

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

var Nummer: Integer; 

Type TFrage = Record 
                         Frage : String; 
                         Antwort : char; 
         var Frage : Array[1..15] of TFrage; 

For Frage:=1 to 15 do begin 
      Frage[1].Frage:=.. and Frage[1].Antwort:= .. and  
      nummer = 1 ;// kann man jetzt Frage[1].Frage:=Label1.. 
         schreiben?............					

1:
2:

Frage[1].Frage:= // muss den labels die erste Frage/Antwort zugewiesen werden!
Frage[1].Antwort:=// muss der richtige buchstabe hinein!					

1:

IF Antwort =  Frage[nummer].Antwort THEN					

1:
2:
3:
4:
5:

nummer               Frage                         Antwort
----------------------------------------------------------
0                         Was ist ein Array?       a
1                         Was ist ein String?       b
2                         Was ist ein Integer?     c					

1:
2:
3:
4:

TYPE TFrage = RECORD
                        Frage : String;
                        antwort : Char;
                      END;					

1:
2:
3:
4:
5:

TYPE TFrage = RECORD
                         Frage : String;
                         a,b,c,d : String;
                         antwort : Char;
                      END;					

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:

procedure TForm1.Button1Click(Sender: TObject); 
var antwort: STRING; 
begin 
  Antwort:=edit1.text[1]; 
  IF Antwort =  Frage[nummer].Antwort THEN 
  begin 
    Versuche := 0; 
     inc(nummer); 
     Label_Frage.Caption:=Frage[nummer].Frage;    
     with Frage[nummer] do //ERKLRÄRUNG IM POSTING
     begin    
       Label_a.Caption:=a; 
       Label_b.Caption:=b; 
       Label_c.Caption:=c;
       Label_d.Caption:=d; 
     end;
  end ELSE 
  begin 
    IF Versuche <1 THEN 
    begin 
      showmessage('leider Falsch....'); 
      Versuche := Versuche +1 ; //bzw. INC(Versuche) 
    end ELSE 

      IF Versuche >= 1 THEN 
      BEGIN 
      showmessage('Game Over.....'); 
      form1.close; 
    end; 
  end; 
end;					

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

TYPE TFrage = RECORD 
                         Frage : String; 
                         a,b,c,d : String; 
                         antwort : Char; 
                      END; 

var Frage = array[0..15] of TFrage;

if nummer = 0 THEN
  TFrage[0].Frage:= 'Was ist ...';
  TFrage[0].a:='...';
  TFrage[0].b:='..';
  TFrage[0].c:='..';
  TFrage[0].d:='..';
  TFrage[0].antwort:=a;
if nummer = 1 THEN
 ........
// den Antworten a..d sind doch schon die Labels zugeordnet mit der with do anweisungen??					

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

VAR my_file : File of TFrage; 
begin 
  SetLength(Frage,0);   //Array 'Frage' soll am Anfang 0 Datensätze enthalten 
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu 
  {$I-}           //Fehlermeldung "ausschalten" 
  Reset(my_file); //Datei öffnen 
  {$I+}           //Fehlermeldung "einschalten" 
  IF IOResult=0 then 
  begin //Wurde die Aktion korrekt ausgeführt? 
    while not eof(my_file) do  //Solange das Ende der Datei nicht erreicht wurde... 
    begin 
      SetLength(frage,Length(frage)+1); //Ergänze das Array "Frage" um einen Datensatz 
      Read(my_file,frage[High(frage)]); //Lese den gerade erzeugten Datensatz aus der Datei 
    end; 
    CloseFile(my_file); //Datei wieder schließen 
  end; 
end;