Multiple Choice Quiz--> Antwort-Positionen zufällig auswählen

[AquaMari]

Wo wir aber schon dabei sind habe ich jetzt eine andere Frage.
Ich möchte ja zum Schluss ein Ergebnis von diesem Quiz zeigen. Also dass ich dann zum Schluss angebe wie viele Fragen man richtig beantwortet hat. Und ich möchte also, dass nur wenn man die richtige Antwort oder die richtige Antworten angekreuzt (checked) hat (da auch mehrere Antworten richtig sein können) und die falschen eben nicht angekreuzt hat, einen Punkt bekommt und ansonsten nicht.

Also ich habe hier ein Procedure mit druecken (checkbox[i].onclick) und da habe ich schon was hingeschrieben(da werden bei mir eben die richtigen Antworten nicht richtig zusammengezählt):
unten seht ihr den Quell-Code

Wie kann ich das jetzt hinbekommen ?

Danke im Voraus

Lg,
AquaMari

Delphi-Quellcode:

procedure Tform1.druecken;
var i:integer;
begin
  if groupbox1.caption=fragen[1] then

for i:=1 to 4 do
   if check[i].caption=r_antworten[1] then richtige_A:=richtige_a+1
   else richtige_a:=richtige_a;

   
if groupbox1.caption=fragen[2] then
for i:=1 to 4 do

   if (check[i].caption=r_antworten[2]) and (check[i].caption=r_antworten[3]) and (check[i].caption=r_antworten[4]) then richtige_A:=richtige_a+1
    else richtige_a:=richtige_a;

   if groupbox1.caption=fragen[3] then
for i:=1 to 4 do

   if check[i].caption=r_antworten[5]  then richtige_A:=richtige_a+1
   else richtige_a:=richtige_a;


   if groupbox1.caption=fragen[4] then
for i:=1 to 4 do
if (check[i].caption=r_antworten[6]) and (check[i].caption=r_antworten[7]) then richtige_A:=richtige_a+1
else richtige_a:=richtige_a;