Как изменить цвет фона и текста в подсказках Hint?

private: // User declarations
     void __fastcall DoShowHint(AnsiString &HintStr, bool &CanShow,THintInfo &HintInfo);

void __fastcall TForm1::FormCreate(TObject *Sender)
  {
    Application->OnShowHint = DoShowHint;
  }
//===========================================================
void __fastcall TForm1::DoShowHint(AnsiString &HintStr, bool &CanShow,
  THintInfo &HintInfo)
  {
    THintWindow *pCurrentHint;
 
    for(int i = 0; i < Application->ComponentCount - 1; i++)
      {
        if((pCurrentHint = dynamic_cast <THintWindow *>(Application->Components[i]))
          != NULL)
          {
            pCurrentHint->Canvas->Font->Style = TFontStyles() << fsBold
              << fsItalic;
            pCurrentHint->Canvas->Font->Name = "Courier New";
            pCurrentHint->Canvas->Font->Size = 20;
            pCurrentHint->Canvas->Brush->Color = clSkyBlue;
          }
        // конец if((pCurrentHint...
      }
    // конец for(int i = 0; i < Application->ComponentCount - 1; i++)
  }

Application->onShowHint = Указатель на класс THintWindow