anchor.diff:  function TmCustomVirtualDataset.InternalGetRecord(ABuffer: TRecordBuffer;
     AGetMode: TGetMode; ADoCheck: Boolean): TGetResult;
   var
  -  iRecCount: Integer;
  +  iRecCount: Longint;
   begin
   //  Logger.EnterMethod(Self, 'InternalGetRecord');
     try
  
positive.code:     );
  
      function GetMasterSource: TDataSource;
      function GetTopIndex: Integer;
      function GetTopRecNo: Integer;
      procedure SetTopIndex(Value: Integer);
      procedure SetMasterSource(Value: TDataSource);
    protected
  
negative.code: 
    procedure RefreshBuffers;
    begin
      FLastFieldListCheckSum:= FieldListCheckSum(Self);
      FLastFieldListCheckSumValid:= (FLastFieldListCheckSum <> 0);
      UpdateCursorPos;
      Resync([]);
    end;
  
  begin
  //  Logger.EnterMethod(Self, 'GetFieldData');
    if not FLastFieldListCheckSumValid then
      RefreshBuffers;
    if (State = dsOldValue) and (FModifiedFields.IndexOf(Field) <> -1) then
    // Requesting the old value of a modified field
  