1:

Label_Frage.Caption:=Frage[nummer].Frage;					

1:

TFrage[0].Frage:= 'Was ist ...';					

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

var Frage array[0..14] of TFrage; // global gespeichert


  TFrage[0].Frage:= 'Was ist ...'; 
  TFrage[0].a:='...'; 
  TFrage[0].b:='..'; 
  TFrage[0].c:='..'; 
  TFrage[0].d:='..'; 
  TFrage[0].antwort:=a; 
// in oncreate Prozedur

Label_Frage.Caption:=Frage[nummer].Frage; // in der buttonprozedur, mit den zwei versuchen verbunden					

1:

TFrage[0].Frage:='...';					

1:

Frage[0].Frage:='...';					

1:

Frage[0].Antwort:=a;// er weiss nicht was a ist! muss es vielleicht 'a' heißen?					

1:

Frage[nummer].Frage...					

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

var
  Form1: TForm1;
  versuche, nummer : Integer;

procedure TForm1.Button1Click(Sender: TObject);
var antwort : String;
begin
  Antwort:= edit1.text[1];
  IF antwort = TFrage[nummer].Antwort THEN
  BEGIN
    Versuche := 0;
    INC (nummer);
    Label1.Caption:= Frage[nummer].Frage;
    with Frage[nummer] do
    BEGIN
      Label2.Caption:=a;
      Label3.Caption:=b;
      Label3.Caption:=c;
      Label4.Caption:=d;
    END;
  END ELSE..					

1:
2:
3:

Frage[0].Frage:='...'; 
Frage[0].a:='::';
....