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

[BadenPower]

Delphi-Quellcode:

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;

Schau Dir einmal diese Zeile an:
if (check[i].caption=r_antworten[6]) and (check[i].caption=r_antworten[7]) then Das kann nicht funktionieren, da check[i] nicht gleichzeitig zwei verschiedene Antworten haben kann.

Aussedem kannst Du den else-Teil weglassen.

Wenn Du dieses System beibehalten wolltest, dann müsstest Du für jede richtige Antwortmöglichkeit eine Schleife durchlaufen.