Alle Pixel durchscannen

[Supremacy]

Hi @ all,

also ich habe ein Problem mit dem durchscannen von allen Pixeln die auf dem Desktop sind.
Was ich vorhabe ist alle Pixel durchzuscannen und da wo er der farbwert '400D0D' auftritt soll eine Label-Caption gesetzt werden.
z.b. label9.Caption := 'Pixel gefunden bei ' + inttostr(i) + '/' + inttostr(x); hier ist der gesamte code.

Delphi-Quellcode:

for i:=0 to screen.Width do begin
for x:=0 to screen.Height do begin
  application.ProcessMessages;
  lampe := TColorToHex(DesktopColor(i, x));
  if lampe = '400D0D' then begin
    label9.Caption := 'Pixel gefunden bei ' + inttostr(i) +'/'+ inttostr(x);
  end;
end;

end;

wenn ich das eine zeitlang durchlaufen lasse konnt ein ganz toller fehler der sehr aussagekräftig ist.
"Leinwand/Bild erlaubt kein" <- mehr kommt als fehler nicht.

Hat jemand eine idee wie ich das lösen kann ?? oder hat jemand eine andere Methode dafür ??
thx schonmal.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]