anchor.diff:  
   //----------------------------------------------------------------------------------------------------------------------
   
  -function _fflush(Stream: TStream): Integer;
  +function fflush(Stream: TStream): Integer;
   
   begin
     Result := 0;
  
positive.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  function _fread(var buf; recsize, reccount: Integer; Stream: TStream): Integer;
  
  begin
    if Assigned(Stream) then
  
negative.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  function memmove(dest, src: Pointer; n: Cardinal): Pointer;
  
  begin
    Move(src^, dest^, n);
  