Code:
for i := 0 to COLUMNS-1 do
begin
if Field[i, r] = 1 then
Inc(cnt)
else
cnt := 0;
end;
wie gesagt musst du den counter auf null setzen wenn das feld nicht vom gesuchten spieler ist
[edit]
und natuerlich auch fuer jede zeile und spalte wieder auf null setzen
[/edit]