procedure DSRefresh(DS: TDataSet; KeepPos: Boolean);
var
 l_Values    : array of Variant;
 l_FieldCount: Integer;
 l_FieldNames: string;
 l_FieldName : string;
 l_RecNo     : Integer;
 l_RecCount  : Integer;
begin
 if (DS is TOraStoredProc) and (TOraStoredProc(DS).StoredProcName <> '')
 then begin
   if DS.Active and (DS is TMyOraStoredProc) and
     (TMyOraStoredProc(DS).KeyFieldName <> '')
   then begin
     l_FieldNames := TMyOraStoredProc(DS).KeyFieldName;
     l_FieldCount := 0;
     l_RecNo := 1;
     while True do begin
       l_FieldName := ExtractFieldName(l_FieldNames, l_RecNo);
       if l_FieldName <> '' then begin
         Inc(l_FieldCount);
         SetLength(l_Values, l_FieldCount);
         l_Values[l_FieldCount - 1] := DS.FieldValues[l_FieldName];
       end
       else
         Break;
     end;
     DS.Close;
     DS.Open;
     if DS.Active then
       DS.Locate(l_FieldNames, l_Values, []);
   end
   else begin
     l_RecNo := DS.RecNo;
     DS.Close;
     DS.Open;
     l_RecCount := DS.RecordCount;
     if KeepPos and (l_RecCount > 0) then begin
       if l_RecNo > l_RecCount then
         l_RecNo := l_RecCount;
       if DS.Active then
         DS.MoveBy(l_RecNo - 1);
     end;
   end;
 end;
end;