Hint / Tooltip selber anzeigen lassen?

[hitzi]

Ich habe ein StringGrid. Im MouseMove Ereignis habe ich folgenden Code:

Delphi-Quellcode:

procedure Tfm_Hauptformular.sg1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var c,r:integer;
begin
 //Hint anzeigen
 timer1.enabled:=false;
 sg1.ShowHint:=false; //sg1 = stringgrid
 sg1.MouseToCell(x,y,c,r);
 if (c<sg1.ColCount) and (r<sg1.RowCount)and(c>0)and(r>0) then begin
  sg1.Hint:='Bemerkung: '+trim(sg1.Cells[7,r]);
  sg1.ShowHint:=true;
  timer1.Enabled:=true;
 end; 
end;

//Timercode

procedure Tfm_Hauptformular.Timer1Timer(Sender: TObject);
begin
 timer1.Enabled:=false;
 sg1.ShowHint:=false;
end;

Dazu brauche ich aber eine Methode den Hint zu sagen, dass er jetzt erscheinen soll. Sonst muss ich jedesmal erst wieder mit der Maus aus dem Grid gehen.

Sowas in der Art sg1.showhintnow

MfG Hitzi