diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index f03228de8..11de58dd5 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -5652,15 +5652,15 @@ begin
         if (CellRect_.Bottom > CursorPos.Y) and (CellRect_.Right > CursorPos.X) then
           if Assigned(FOnDataHintShow) then
           begin
+            Processed := False;
             rec := DataLink.ActiveRecord;
             try
               DataLink.ActiveRecord := Cell.y - 1;
               HintStr_ := tCol.Field.DisplayText;
+              FOnDataHintShow(Self, CursorPos, Cell, tCol, HintStr_, Processed);
             finally
               DataLink.ActiveRecord := rec;
             end;
-            Processed := False;
-            FOnDataHintShow(Self, CursorPos, Cell, tCol, HintStr_, Processed);
             if Processed then
               HintStr := HintStr_;
           end;