FormCreate(Sender); - undefinierter Bezeichner?

[xZise]

Hallo AlexII,

Außerdem hast du bei „procedure TForm1.ShowResults;“ das Problem, dass du da was miteinander vermischst.

Ich würde einfach noch eine Prozedur anlegen: „StartGame“ die in „FormCreate“ aufgerufen wird, und in ShowResults, sofern nicht Nein angeklickt würde. Das wäre imho eleganter

Delphi-Quellcode:

procedure TForm1.ShowResults;
begin
  ShowMessage('Das Quiz ist vorbei.'#13#10'Richtig: '+IntToStr(FiCountCorrect)+#13#10'Falsch: '+IntToStr(FiCountError));
  if Application.MessageBox('Neues Spiel anfangen?','Frage',MB_OK*or MB_ICONQUESTION) = ID_YES then
    StartGame
  else
    Close;
end;

MfG
xZise