anchor.diff:    SetPointer(pData, iSize);
   End;
   
  -Function TPointerMemoryStream.Write(Const Buffer; Count: Integer): LongInt;
  +Function TPointerMemoryStream.Write(Const Buffer; Count: LongInt): LongInt;
   Begin
     Raise EFslException.Create('Should never be called');
   End;
  
positive.code:           // Reads file data for the last Directory Record. The entire file is read into the buffer.
            // The buffer must be large enough to take up the whole file.
  var
    RestBytes : integer;
  begin
    if FBytesToGo = 0 then EXIT;
    RestBytes := Records (FBytesToGo) * RECORDSIZE - FBytesToGo;
  
negative.code:           // The entire file is written out to the stream.
            // The stream is left at its current position prior to writing
  var
    RestBytes : longint;
  begin
    if FBytesToGo = 0 then EXIT;
    RestBytes := Records (FBytesToGo) * RECORDSIZE - FBytesToGo;
  