procedure Tfrm1001.StgKwansimMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  ACol, ARow : Integer;
  CursorPos: TPoint;

begin

   (Sender as TStringGrid).MouseToCell(X,Y, ACol, ARow);
   if (ACol > (Sender as TStringGrid).ColCount-1) or (ARow < 1) or   (ARow > (Sender as TStringGrid).RowCount-1) then
     Exit;
   Application.ShowHint := true;
   (Sender as TStringGrid).Hint := Trim((Sender as TStringGrid).Cells[1, ARow])+' : '+ Trim((Sender as TStringGrid).Cells[0, ARow]);
   CursorPos:= Mouse.CursorPos;
   Application.Activatehint(CursorPos);
end;
위처럼 했는데 hint 가 깜빡깜빡거려서 그럽니다.
깜빡깜빡 거리지않게 할수 있나요 부탁드립니다.

그리고 showhint 를 true 로 해놓고
기냥    CursorPos:= Mouse.CursorPos;
   Application.Activatehint(CursorPos);
부분을 생략하면 아예 나타나지도 않습니다. 폼 및 모든 showhint 를 true 로 해놓고 해도 안되서요 부탁드립니다.