Ok Jungs ich hab's anders gemacht und sehr sauber
Hab folgendes geändert:
Delphi-Quellcode:
procedure TForm1.ShowResults;
begin
ShowMessage('Das Quiz ist vorbei.'#13#10'Richtig: '+IntToStr(FiCountCorrect)+#13#10'Falsch: '+IntToStr(FiCountError));
FiCountCorrect := 0;
FiCountError := 0;
FiCountQuestion := 0;
FiCountTries := 2;
if Application.MessageBox('Neues Spiel anfangen?','Frage',36) = 7 then Close;
NextQuestion;
end;
Ist doch wunderbar, oder?
Danke für die Hilfe.