Hallo, ich habe mir das Programm jetzt nicht angesehen, aber zu Deiner Frage: definiere Dir einfach ein privates Feld des Formulars für den Zähler. Bei jedem Fehler zählst Du den hoch und schaust, auf welchem Wert er steht. Sind 10 Fehler erreicht, reagierst Du entsprechend. Ein Beispiel aus dem Kopf:
Delphi-Quellcode:
type
TMainForm =
class(TForm)
...
private
FZaehler: integer;
...
end;
...
procedure TMainForm.TuWas;
begin
if falsch
then
begin
inc(FZaehler);
if FZaehler > 9
then
begin
MessageBox(
Handle,'
Du hast 10 Fehler gemacht, das Spiel wird beendet.','
Information',MB_OK
or MB_ICONINFORMATION);
Close;
end;
end;
end;