Moin!
Schau dir dazu einfach mal die Hilfe zu der Eigenschaft CustomColors des TColorDialogs an.
/EDIT: Da der Rest per ICQ gelöst wurde und damit auch andere was von dem Thread haben, hier die Lösung:
ColorDialog1.CustomColors.Add('ColorA=' + IntToHex(ColorToRGB(clBtnFace), 6));
ColorToRGB() muss sein, damit man die
RGB Werte erhält passend zu clBtnFace (ist nur ein Index) und dann mit IntToHex() umwandeln
in eine Hexadezimalfarbe.
MfG
Muetze1