Das mit dem Lokal ist schon ok.
Aber du setzt wenn button1, 2 & 3 "X" sind den Zähler auf 0;
if (Button1.Caption ='X') and (Button2.Caption ='X') and (Button3.Caption ='X') then win_x := 0;
danach erhöhst du ihn wieder um/auf 1
win_x := win_x+1
Ich kenne den Rest des Codes nicht. Klingt aber komisch wenn du win_x auf 0 setzt obwohl doch eine Reihe 'X' ist.
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.