Größe von "Array of Array of integer" ermitteln

[funky]

OK jetzt habe ich Länge und Breite rausgefunden aber wie überprüfe ich zum Beispiel ob es mit zweien gefüllt ist?

Zur Zeit habe ich folgenden Code aber der funktioniert nicht:

Delphi-Quellcode:

procedure TForm1.CheckField;
var i,j:integer; gewonnen:boolean;
begin

gewonnen:= true;

for i := 0 to Länge-1 do
begin

    for j := 0 to Breite - 1 do
    begin

         if (arFelder[i,j] = 1 or 2 or 4 ) then
         begin
         gewonnen := true;
         end

         else
         begin
         gewonnen := false;
         end;


         end;
    end;

if (gewonnen = true) then ShowMessage('Gewonnen');
end;

Die Prozedur habe ich nach jeder Bewegung reingemacht.
Also wenn w,a,s oder d gedrückt wird.

Edit:
1 steht für Blau (Nicht begehbares Feld)
2 für Rot (Ziel)
4 für gelb (Felder auf denen man war)