Problemas con el Hint y ComboBox
 

Estoy usando el procedimiento para mostrar los hint

Código Delphi [-]
function Tmainx.RevealHint (Control: TControl): THintWindow;
 var
   ShortHint: string;
   AShortHint: array[0..255] of Char;
   HintPos: TPoint;
   HintBox: TRect;
 begin
   { Create the window: }
   Result := THintWindow.Create(Control);
   { Get first half of hint up to '|': }
   ShortHint := GetShortHint(Control.Hint);
   { Calculate Hint Window position & size: }
   HintPos := Control.ClientOrigin;
   Inc(HintPos.Y, Control.Height + 6);
   HintBox := Bounds(0, 0, Screen.Width, 0);
   DrawText(Result.Canvas.Handle,
       StrPCopy(AShortHint, ShortHint), -1, HintBox,
       DT_CALCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX);
   OffsetRect(HintBox, HintPos.X, HintPos.Y);
   Inc(HintBox.Right, 6);
   Inc(HintBox.Bottom, 2);
   { Now show the window: }
   Result.ActivateHint(HintBox, ShortHint);
 end; {RevealHint}
////////////////////////////////////////////////////////////

Cuando el cursor pasa por el cuadro de texto del combobox el hint aparece y desaparece rapido y provoda un error. Como puedo solucionar este error ??????