Problem mit function und canvas

[k4ni]

hey leute.

Ich verzweifel.
Ich hab hier diese function gemacht:

Delphi-Quellcode:

function TForm1.LogCheck(): Boolean;
var
 DCanvas: TCanvas;
 DHandle: HDC;
begin
 DHandle:=GetDC(0);
 if DHandle<>0 then
 begin
   try
     DCanvas:=TCanvas.Create;
     try
     DCanvas.Handle:=DHandle;
     if DCanvas.Pixels[487, 481] = RGB(255, 255, 255)
       then
       begin
       Result := true;
       end
       else
       Result := false;
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
        RaiseLastOSError;
    end;
 end
 else
   RaiseLastOSError;
end;

Soweit alles ok. Hab das auch mit nem anderen programm schon getestet, funktioniert super.
So doch das will ich in eine repeat-schleife einbauen das wäre dann so:

Delphi-Quellcode:

procedure TForm1.Schleife();
begin
repeat
if LogCheck() = true then
Exit;

...
...
until
...
end;

Doch auch wenn das Result von LogCheck true ist hoert er einfach nicht auf. Woran könnte das liegen?