Pixelfarbe abfragen mit Delphi

[LeCorno]

vereinfacht ausgedrückt, liefert

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
Var Pt:TPoint; DC:HDC;
begin
  GetCursorPos(Pt);
  DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
  label1.Caption := inttostr(GetPixel(DC,Pt.x,Pt.y));
End;

auf label1 den farbwert des jeweiligen pixels, auf dem sich die maus befindet!

Problem gelöst, auf zum nächsten! DANKE AN ALLE