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;