Moin moin
wie wärs mit:
Delphi-Quellcode:
if tquizfragen.FieldByName('L1').AsInteger = 1 then begin
tquizfragen.first; //<-
tquizfragen.moveby(random(tquizfragen.RecordCount));
end else
showmessage('Diese Antwortmöglichkeit war leider Falsch');
end;
Analog dann bei den anderen Buttons.
schönen Gruß
Sam