Цветные хинты!!!!!

Читал огроменную статью как поменять цвет хинта через WinAPI. Это можно сделать намного проще:

Цвет фонта:

TScreen *scr;
scr->HintFont->Color=....;

Цвет фона:
Нужент компонент ApplicationEvents1.Унего есть событие OnShowHint:

void __fastcall TForm1::ApplicationEvents1ShowHint(AnsiString &HintStr,
bool &CanShow, THintInfo &HintInfo)
{
HintInfo.HintColor=...;
}