4 Gewinnt PROBLEM!

[Corpsman]

Mir warn das zu viele Buchstaben in deinem 1. Beitrag, aber wenn ich da sehe das du mittels

Zitat:

Delphi-Quellcode:

Mausklick:= Mausklick+1;

  If (Mausklick mod 2) = 1 Then

Prüfst denke ich mir doch das könntest du einfacher haben ala

Delphi-Quellcode:

Var Mausklick : Boolean = false;

begin 
..
Mausklick := not Mauscklick;
if Mausklick then

Nur so als kleine Optimierung ...