Frage zu analysen

[Wadim]

So benutze diesen code- der funktioniert auch aber wie kann ich die farbe (im hex) in einem label anzeien lassen?

procedure TForm1.Button1Click(Sender: TObject);
var
dc: hDc;
begin
dc := GetDC(0);
Color := GetPixel(dc, x, y); //statt x und y, bitte Integer eingeben
ReleaseDC(0, dc);

end;