Problem mit function und canvas

[Klaus01]

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; 
          result := DCanvas.Pixels[487, 481] = RGB(255, 255, 255) 
        finally 
          DCanvas.Free; 
        end; 
      finally 
        if ReleaseDc(0, DHandle)<>1 then 
          RaiseLastOSError; 
      end; 
    end 
  else 
    RaiseLastOSError; 
end;

Im obigen Code is result nicht definiert wenn DHandle = 0 ist
und wenn DCanvas.Create fehlgeschlagen ist.

Delphi-Quellcode:

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

  until // Bedingung fehlt
 
end;

Hier ist noch dazu zu sagen das man niemals auf = true prüfen sollte.
LogChecl liefert doch schon ein Boolean zurück.

Grüße
Klaus