Zahlen in Bild erkennen mit Pixelsearch - Genauigkeitsprob.

[MaToBe]

Ich gehe jetzt einer anderen Idee nach... allerdings stehe ich gerade voll auf dem Schlauch.

Kann mir einer sage warum bei dieser Prozedure sich das Programm aufhängt ?? Verhalten wie bei eine Endlosschleife aber ich seh keine ?!?

Delphi-Quellcode:

procedure TfrmMain.btnCodeClick(Sender: TObject);
var ID : string;
    x, y : integer;
begin
   ID := '';
   for x := 0 to Image.Width - 1 do
   begin
     for y := 0 to Image.Height - 1 do
     begin
       if Image.Canvas.Pixels[x,y] = clBlack then
       begin
           ID := ID + 'B';
       end
       else
       begin
           ID := ID + 'W';
       end;
     end;
   end;
   edtCode.Text := ID;
end;

PS: Hab extra ein Bild mit wenig Pixel genommen als Test.