Versuche doch einfach mal vorzeitig mit Exit aus der Prozedur rauszuspringen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x, y, z, count: Integer;
begin
Assert(Assigned(self)); // Sicherheits Check
Assert(Assigned(StringGrid1)); // Sicherheits Check #2
ResetPossible();
Exit; // NUR ZUM TEST !!!
for y := 1 to 9 do
for x := 1 to 9 do
...
Wenn es keine Fehler gibt, wird die Exit Anweisung nach unten verschoben, bis der Fehler wieder auftritt.
So wird der Fehler eingegrenzt.