....
   grdInfo: TRxDBGrid;
....
type
 TMyDBGrid = class(TrxDBGrid)
 end;
...
procedure TfrmOwnerList.ScrollActiveToRow(AGrid: TDBGrid; ARow: Integer);
var
    FTitleOffset, SDistance : Integer;
    NewRect : TRect;
    NewRow : Integer;
begin
 with TMyDBGrid(AGrid) do
 begin
   NewRow:= Row;
   FTitleOffset:= 0;
   if dgTitles in Options then inc(FTitleOffset);
   if ARow = NewRow then Exit;
   with DataLink, DataSet do
   try
     BeginUpdate;
     Scroll(NewRow - ARow);
     if (NewRow - ARow) < 0 then
       ActiveRecord:= 0
     else
       ActiveRecord:= VisibleRowCount - 1;
     SDistance:= MoveBy(NewRow - ARow);
     NewRow:= NewRow - SDistance;
     MoveBy(ARow - ActiveRecord - FTitleOffset);
     NewRect:= BoxRect(0, FTitleOffset, ColCount - 1, 1000);
     ScrollWindowEx(Handle, 0,0, @NewRect, @NewRect, 0, nil, SW_Invalidate);
     MoveColRow(Col, NewRow, False, False);
   finally
     EndUpdate;
   end;
 end;
end;

procedure TfrmOwnerList.DBRefresh;
var
   save_Cur:   TCursor;
   save_LCol:  Integer;
   oldRow:     Integer;
   oldKey:     Variant;
   bRestore:   Boolean;
begin
 oldRow := 0;
 save_Cur := Screen.Cursor;
 if Active and CanRefresh then
 try
   Screen.Cursor := crSQLWait;
   bRestore := (not cdsInfo.IsEmpty) and (IndexField <> '');
   save_LCol := grdInfo.LeftCol;
   if bRestore then
   begin
     oldRow := grdInfo.Row;
     oldKey := cdsInfo.FieldByName(IndexField).Value;
   end;
   try
     cdsInfo.Active := false;
     qryInfo.Active := false;
     qryInfo.Active := true;
     cdsInfo.Active := true;
     if bRestore then
     begin
       if cdsInfo.Locate(IndexField, oldKey, [loCaseInsensitive]) then
         ScrollActiveToRow(grdInfo, oldRow);
     end;
   finally
     grdInfo.LeftCol := save_LCol;
   end;
 finally
   Screen.Cursor := save_Cur;
 end;
end;