frage zu while schleife

[midnight Ghost]

Falls diese frage zu diesem Thema schon einmal gestellt wurde, dann tut es mir leid, aber die suchfunktion hat nicht das erhoffte gebracht und das ganze Forum zu durchforsten mit meinem Analog anschluss dauert entschieden zu lange.

Ich habe folgendes Problem:

Ich will ein programm erstellen welches zufällig nacheinander 12 mal eine Frage auswählt und Stellt und das 5 mal.
Dabei soll es auswerten ob die Antwort (aus 3 möglichen radio Buttons) richtig oder falsch ist. (nur einfachantworten möglich).
Nachdem man die antwort zu der frage ausgewählt hat soll man auf start/weiter Button clicken und die nächste frage erscheint.
Ob die Antwort Richtig oder Falsch war kann man danach in einer Auswertungs Tabelle welche aus 12 X 5 Textfeldern besteht ablesen.
Ich bin jetzt bei dem schritt dem Programm klar zu machen das es die fragen zuällig auswählen soll und das solange bis die Textfelder gefüllt sind und nicht mehr leer.

Zum besseren verständniss hier der Quellcode der Unit ( nicht windern ich habe den ganzen spass hier erst mal nur mit 2 Fragen getestet:

Delphi-Quellcode:

unit Ufisch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFRMfischer = class(TForm)
    Panel1: TPanel;
    BSFLantwort: TButton;
    BSFlneu: TButton;
    BSFLende: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    fallg1: TEdit;
    fallg2: TEdit;
    fallg3: TEdit;
    fallg4: TEdit;
    fallg5: TEdit;
    fallg6: TEdit;
    fallg7: TEdit;
    fallg8: TEdit;
    fallg9: TEdit;
    fallg10: TEdit;
    fallg11: TEdit;
    fallg12: TEdit;
    spez1: TEdit;
    spez2: TEdit;
    spez3: TEdit;
    spez4: TEdit;
    spez5: TEdit;
    spez6: TEdit;
    spez7: TEdit;
    spez8: TEdit;
    spez9: TEdit;
    spez10: TEdit;
    spez11: TEdit;
    spez12: TEdit;
    gew1: TEdit;
    gew2: TEdit;
    gew3: TEdit;
    gew4: TEdit;
    gew5: TEdit;
    gew6: TEdit;
    gew7: TEdit;
    gew8: TEdit;
    gew9: TEdit;
    gew10: TEdit;
    gew11: TEdit;
    gew12: TEdit;
    ges1: TEdit;
    ges2: TEdit;
    ges3: TEdit;
    ges4: TEdit;
    ges5: TEdit;
    ges6: TEdit;
    ges7: TEdit;
    ges8: TEdit;
    ges9: TEdit;
    ges10: TEdit;
    ges11: TEdit;
    ges12: TEdit;
    ger1: TEdit;
    ger2: TEdit;
    ger3: TEdit;
    ger4: TEdit;
    ger5: TEdit;
    ger6: TEdit;
    ger7: TEdit;
    ger8: TEdit;
    ger9: TEdit;
    ger10: TEdit;
    ger11: TEdit;
    ger12: TEdit;
    BSFLstart: TButton;
    auswahla: TRadioButton;
    auswahlb: TRadioButton;
    auswahlc: TRadioButton;
    fragen: TPanel;
    procedure BSFLendeClick(Sender: TObject);
    procedure BSFLstartClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FRMfischer: TFRMfischer;

implementation

{$R *.dfm}

procedure TFRMfischer.BSFLendeClick(Sender: TObject);
begin
close;
end;

procedure TFRMfischer.BSFLstartClick(Sender: TObject);
var  Frage1, Frage2, F1, F2 : string;
zu:double;

  procedure Frage1allg;
  begin
  fragen.caption := 'TestF1';
  auswahla.caption := 'TestantwortF1.1';
  auswahlb.Caption := 'TestantwortF1.2';
  auswahlc.Caption := 'TestantwortF1.3';
  if auswahla.Checked = True then
    fallg1.text := 'Richtig!'
  else
    fallg1.text := 'Falsch!';
  end;

  procedure Frage2allg;
  begin
  fragen.Caption := 'testF2';
  auswahla.Caption := 'testantwort2.1';
  auswahlb.Caption := 'teatantwort2.2';
  auswahlc.Caption := 'sdögh2.3';
  if auswahlc.checked =True then
    fallg2.Text := 'richtig'
  else
    fallg2.Text := 'falsch';
  end;

begin
while fallg1.text = '' and fallg2.text = '' do
randomize;
zu := random(2);

 if zu =1 then Frage1allg;
 if zu =2 then Frage2allg;



end;
end.

Ich hoffe ihr könnt mir weiterhelfen, Danke.