Delphi-Quellcode:
procedure TTSpielmodus501.SiegerSpieler1;
begin
if (lblpunktestand1.Caption < inttostr(1)) then
ShowMessage('spielername1' + 'hat das Spiel gewonnen.');
end;
Nächstes Problem: Ich habe jetzt diese Prozedur geschrieben, um zu sehen ob es funktioniert. Habe sie in OnCreate eingebunden. Es passiert allerdings NICHTS wenn der Punktestand auf 0 geht.