Sieger-Prüfung "Vier gewinnt"

[Luckie]

Hier im Forum kursieren ja die einige Lösungen. Aber keine befriedigt mich so recht.

Ich habe ein 2D Integer Array mit 7 Spalten und 6 Reihen. 0 steht für leer, 1 für Spieler eins und 2 für Spieler zwei. Dürfte Klar sein, denke ich. Mein Problem, wie überprüfe ich am geschicktesten, ob vier einsen oder vier zweien in einer Reihe sind (auch diagonal)?

Mein Code Rumpf sieht bisher so aus:

Delphi-Quellcode:

function TFourInARow.CheckWinner: Boolean;

  function CheckRow(r: Cardinal): Boolean;
  var
    i: Integer;
    Prev: Integer;
  begin
    result := False;
    for i := ROWS-1 downto 0 do
    begin
      
    end;
  end;

  function CheckColumn(c: Cardinal): Boolean;
  begin
    result := False;
  end;

  function CheckDiagonal: Boolean;
  begin
    result := False;
  end;
  
var
  c, r: Integer;
  FourInARow, FourInAColumn, FourInADiagonal: Boolean;
begin
  for c := 0 to COLUMNS - 1 do
  begin
    FourInAColumn := CheckColumn(c);
  end;
  for r := 0 to ROWS - 1 do
  begin
    FourInARow := CheckRow(r);
  end;
  FourInADiagonal := CheckDiagonal;
  result := FourInAColumn or FourInARow or FourInADiagonal;
end;

Hat irgendjemand eine clevere Idee, wie man die Inline-Funktionen mit Code füllen könnte?