Sieger-Prüfung "Vier gewinnt"

[Luckie]

Ich habe es jetzt versucht zu vereinfachen, aber ich habe das Gefühl es ist schlimmer geworden und so langsam verliere ich auch die Übersicht. Ich sollte ins Bett gehen.

Delphi-Quellcode:

function TFourInARow.CheckWinnerPlayerOne: Boolean;
var
  cnt: Integer;

  function CheckRows: Boolean;
  var
    c, r: Integer;
  begin
    cnt := 0;
    for c := 0 to COLUMNS - 1 do
    begin
      for r := 0 to ROWS-1 do
      begin
        if Field[c, r] = 1 then
          Inc(cnt)
      end;
    end;
    result := cnt = 4;
  end;

  function CheckDiagonal: Boolean;
  begin
    result := False;
  end;

begin
  result := CheckRows;
end;

Und im Anhang mal das ganze Projekt.