Farbe zu string?

[Die Muhkuh]

Hier mal der Code:

Delphi-Quellcode:

function GetPixel(Pos1: TPoint): TColor;
var 
  DC: HDC; 
  Handle: HWND; 
begin 
  Handle:=WindowFromPoint(Pos1);
  DC:=GetDC(Handle);
  Pos1.x := Mouse.CursorPos.x;
  Pos1.y := Mouse.CursorPos.y;
  result:=Windows.GetPixel(DC, Pos1.X, Pos1.Y);
  ReleaseDC(Handle, DC);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.caption := inttostr(GetPixel(Pos1));
end;