title: Add custom colors to TfontDialog in Delphi 7
body: <p>How i can add some values to color Box in the TFontDialog?
  Or please tell me about components that can select font with custom color?
  I use Delphi 7.</p>
  
  <p>Thanks.</p>
  
  <p>I found some way... But how i can show TColorDialog when color box changed on itemIndex = 0?</p>
  
  <pre><code> 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;
  </code></pre>