anchor.diff:  End;
   
   
  -Function TVCLStream.Read(Var aBuffer; iCount: Integer): LongInt;
  +Function TVCLStream.Read(Var aBuffer; iCount: LongInt): LongInt;
   Var
     iReadable : Integer;
   Begin
  
positive.code:           // Reads file data for the last Directory Record. The entire file is returned
            // as a large ANSI String.
  var
    RestBytes : integer;
  begin
    if FBytesToGo = 0 then EXIT;
    RestBytes := Records (FBytesToGo) * RECORDSIZE - FBytesToGo;
  
negative.code: End;
  
  
  Function TVCLStream.Seek(iOffset: LongInt; iOrigin: Word): LongInt;
  Var
    oAccess : TFslAccessStream;
  Begin
  