Function TForm1.ChangeHint(C: TControl; Const Hint: String; p: TPoint): Boolean;
begin
if Hint <> OldHint then begin
  OldHint := C.Hint;

  C.Hint := Hint;

  Application.ActivateHint(p);
end;

procedure TForm1.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var Dados : string;
begin
Dados := DBGridEh1.DataSource.Dataset.FieldByname('CODIGO').Asstring + '   ';
Dados := Dados + DBGridEh1.DataSource.Dataset.FieldByname('MERCADORIA').Asstring + #13;

ChangeHint(TDBGridEh(Sender),  Dados +  '  -  TDBGridEh', TDBGridEh(Sender).ClientToScreen(Point(X, Y)));

end;

end;

procedure TForm1.DBGridEh1DataHintShow(Sender: TCustomDBGridEh;
  CursorPos: TPoint; Cell: TGridCoord; InCellCursorPos: TPoint;
  Column: TColumnEh; var Params: TDBGridEhDataHintParams;
  var Processed: Boolean);
begin
  Params.HintStr := Sender.Hint;
  Processed := True;
end;