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.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.