Как сделать так, чтобы подсказки для ячеек в TStringGrid отображались более плавно?

Я использую Lazarus 0.9.30.

У меня есть стандартный TStringGrid в форме, и я хочу отображать другую подсказку, когда я наводю указатель мыши на заголовок столбца. Я использую этот код для этого, и он вроде как работает, но вам часто приходится нажимать на ячейку, чтобы получить подсказку для изменения, когда я действительно хочу, чтобы она изменялась, когда указатель мыши перемещается по ней. У меня есть все подсказки, хранящиеся в коллекции, которую я просматриваю, используя индекс столбца в качестве ключа. Есть ли способ добиться более плавного отображения подсказок?

procedure TTmMainForm.SgScoutLinkMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  R, C: Integer;
begin
  R := 0;
  C := 0;

  SgScoutLink.MouseToCell(X, Y, C, R);

  with SgScoutLink do
  begin
    if (R = 0) then
      if ((C >= 3) and (C <= 20)) then
      begin
        SgScoutLink.Hint := FManager.ScoutLinkColumnTitles.stGetColumnTitleHint(C-3);
        SgScoutLink.ShowHint:= True;
      end; {if}
  end; {with}
end;