Quiz in Delphi

[chuck.9]

Das die Unit der richtigen antworten(der anfang)!

Delphi-Quellcode:

function quizrichtig(n,m: Integer): string;

var feld: array [1..60,1..6] of string;

begin

feld[1,6]:='Zugspitze';
feld[2,6]:='8';
feld[3,6]:='Damenschuhe';

Das die Unit der Anworten überhaupt(der anfang)!

Delphi-Quellcode:

function quizant(n,m: Integer): string;

var feld: array [1..60,1..6] of string;
begin
feld[1,2]:='Watzmann';
feld[1,3]:='Zugspitze';

Das die Unit der Fragen(der anfang)!

Delphi-Quellcode:

function quizfragen(n,m: Integer): string;
var feld: array [1..60,1..6] of String;

begin

feld[1,1]:='Wie heißt der höchste Berg Deutschlands?';
feld[2,1]:='Wie viele Beine hat eine Spinne?';

Das ist meine Button Click Prozedur:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);


begin
 randomize;

            panel3.Caption:='0 €';
            panel2.caption:='Nr. 1';
            n:=random(3)+1;
            panel1.caption:=quizfragen(n,1);
            radiobutton1.caption:=quizant(n,2);
            radiobutton2.Caption:=quizant(n,3);
            radiobutton3.caption:=quizant(n,4);
            radiobutton4.Caption:=quizant(n,5);

[color=#ff0000]if quizfragen(n,1)=quizrichtig(n,6) then[/color]

das rot markierte funktioniert nicht, der rest schon!

Nun will ich Testen ob der markierte Radiobutton auch die richtige Antwort ist! Und ich will es mit Modulen/Units machen!
Wie lautet der Quelltext zur überprüfung ob Radiobutton auch richtige antwort ist?