Hola...
Me imagino que te refieres a esta parte:
Código Delphi
[-]
if FCt2 < 0 then
begin
for I := 81 to 162 do
FSudoku := FSudoku + IntToStr(Q[FCt][i]);
Break
end;
Es un pequeño error, en realidad el ciclo
for debería ir de 81 a 161... la posición 162 en la lista
Q[FCt] guarda el valor de un índice y este al final del proceso tiene como valor
-1, por lo cual no debería agregarse a la cadena de la solución.
Saludos...