Добавление пользовательских цветов в TfontDialog в Delphi 7

Как я могу добавить некоторые значения в поле цвета в TFontDialog? Или расскажите, пожалуйста, о компонентах, которые могут выбирать шрифт с произвольным цветом? Я использую Delphi 7.

Спасибо.

Я нашел способ ... Но как я могу показать TColorDialog, когда цветовой блок изменился на itemIndex = 0?

 procedure TForm1.FontDialog1Show(Sender: TObject);
const
 IDCOLORCMB = $473;
 SMyColorName: PChar = 'clMoneyGreen';
 CMyColor: TColor = clMoneyGreen;
begin
 SendDlgItemMessage(FontDialog1.Handle, IDCOLORCMB, CB_INSERTSTRING, 0,
 Integer(SMyColorName));
 SendDlgItemMessage(FontDialog1.Handle, IDCOLORCMB, CB_SETITEMDATA, 0,
   ColorToRGB(CMyColor));
end;