Color-Dialog

[LoL]

Hallo

ihr kennt ja sicher alles diesen Standard Color Diaglog von Windows. Ich versuche zur Zeit diesen Diaglog nachzuschreiben weil ich einige Dinge verändern will!
das Design hab ich soweit fertig, jetzt fehlt der Code. Die Umwandlung des Farbwertes in RGB auf den geklickt wurde passt eigentlich soweit. Es fehlt nur noch die Umwandlung in HSV. Ich bekomme trotz Hilfen aus dem Internet dieses Stück Code nicht hin. Könnt ihr mir helfen? Ich möchte das genau so hinbekommen wie im Windows Vorbild.

Hier Umwandlung in RGB:

Delphi-Quellcode:

ed_rot.Text := inttostr(GetRValue(ColorToRGB(ed_showcl.Color)));
ed_gruen.Text := inttostr(GetGValue(ColorToRGB(ed_showcl.Color)));
ed_blau.Text := inttostr(GetBValue(ColorToRGB(ed_showcl.Color)));