Quiz erstellen

[01Detlef]

hallo, ich war im urlaub, deshalb jetzt noch ein frohes neues jahr!!

ich habe jetzt mal ein wenig herumgeproggt(mit ein wenig hilfe) und:

Code:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Versuche:=0; 
  // hier muss jetzt noch das array hinein, welches aus einer datei eingelesen werden soll
  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;

also ich habe jetzt zwei versuche für jede Frage!

Mein Problem besteht darin, das array zu füllen, die Schleife ist ja der button, der die nummer von mal zu mal um eins erhöht! Zu der erhöhung müssen sich die zuweisungen ändern!Also so:
Nummer=1 Frage= hauptstadt von Deutschland?
1)Bonn
2)Berlin
3)Hamburg
4)..
und außerdem muss noch in einem array die richtigen zahlen oder buchstaben geseichert seien, damit die nächste frage erscheint!

Code:

IF Antwort =  Frage[nummer].Antwort THEN

Ich weiss nur nicht, wie ich das jetzt alles zusammenpacken muss!

Danke detlef