Sudoku Array of Array vergleichen

[Marcel2906]

irgendwie hab ich ne Blockade
habs jetzt so versucht:

Delphi-Quellcode:

Procedure TForm2.BtPruefenClick(Sender: TObject);
Type
   THilfsArray = Array[1..9] Of Integer;
Var
   x, y, xx, yy: Integer;
   HilfsArray: THilfsArray;

//...

   //Wenn eine Zahl doppelt, Fehlermeldung
   Function ZahlDoppelt: boolean;
   Var
      i: Integer;
      doppelt: boolean;
   Begin
      For I := 1 To 9 Do
         If HilfsArray[i] > 1 Then
            Result := true;
   End;

//...


Begin
   //Zeile prüfen
   For y := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For x := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      If ZahlDoppelt = true Then
         ShowMessage(' einer Zeile');
   End;
   //Spalte prüfen
   For x := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For y := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      If ZahlDoppelt = true Then
         ShowMessage(' einer Spalte');
   End;
   //Feld prüfen
   For xx := 0 To 2 Do
      For yy := 0 To 2 Do Begin
         HilfsArrayLeeren;
         For y := yy * 3 To yy * 3 + 2 Do Begin
            For x := xx * 3 To xx * 3 + 2 Do
               AddHilfsArray(aSudoku[y, x]);
         End;
         If ZahlDoppelt = true Then
            ShowMessage(' einem Feld');
      End;
End;