[Delphi] StringGrid - Mouse move Cell hint

procedure TFm_Test.AdvStringGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow: Integer;
begin

  AdvStringGrid.ShowHint := False;
  AdvStringGrid.MouseToCell(X, Y, ACol, ARow);

  if (ACol < 2) or (ARow < 1) then 
    Exit; // fix and checkbox

  AdvStringGrid.ShowHint := True;
  AdvStringGrid.Hint := AdvStringGrid.Cells[ACol, ARow];

end;