anchor.diff:  End;
   
   
  -Function TVCLStream.Write(Const aBuffer; iCount: Integer): LongInt;
  +Function TVCLStream.Write(Const aBuffer; iCount: LongInt): LongInt;
   Begin
     FStream.Write(aBuffer, iCount);
     Result := iCount;
  
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:           // Reads file data for the last Directory Record. The entire file is returned
            // as a large ANSI String.
  var
    RestBytes : longint;
  begin
    if FBytesToGo = 0 then EXIT;
    RestBytes := Records (FBytesToGo) * RECORDSIZE - FBytesToGo;
  