comentario o mensaje al pasar sobre una celda de un DBGrid

[[coso]]

Código Delphi [-]
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
        t : TGridCoord;
begin
        t := DBGrid1.MouseCoord(X,Y);
        DBGrid1.Hint := 'Columna ' + inttostr(t.X);
end;

con el showhint de la dbgrid a true.

un saludo.