Hi Radon,
<edit> Damit scheint jedoch die diagonale Anordnung nicht mehr zu funktionieren... </edit>
meines erachtens kontrollierst Du nur 3 Zustände im Bereich der Zeilen 223-226,
habe dort einfach mal
if Feld[GSpalte - 4 * x, GZeile - 4 * y] = Spieler then
eingefügt, damit scheint es zu funktionieren.
Dennoch solltest Du das
FreeAndNil(VierGewinnt);
wieder aus dem Code nehmen, ansonsten hagelts nur so von
AV´s
Grüße