Sudoku Kandidaten löschen

[Marcel2906]

was ich bei

Delphi-Quellcode:

  //Feld nach Werten durchsuchen und aus Kandidatenliste löschen
            For xx := 0 To 2 Do
               For yy := 0 To 2 Do Begin
                  For x := xx * 3 To xx * 3 + 2 Do
                     For y := yy * 3 To yy * 3 + 2 Do
                        If aSudoku[x, y] < 10 Then Begin
                           s := IntToStr(aSudoku[a, b]);
                           ss := IntToStr(aSudoku[x, y]);
                           s := Stringreplace(s, ss, '', [rfReplaceAll]);
                           aSudoku[a, b] := StrToInt(s);
                        End;
               End;

Falsch mache.
Weil dies leider nicht funktioniert