anchor.diff:      procedure Write(const Value: TDateTime     ); override;
     end;
   
  -  TStreamEvent = procedure (aData: TKMemoryStream) of object;
  +  TStreamEvent = procedure (aData: TKSaveStream) of object;
   
   implementation
   
   
  -function TKMemoryStream.Write(const Buffer; Count: Longint): Longint;
  +function TKSaveStream.Write(const Buffer; Count: Longint): Longint;
   begin
     Result := inherited Write(Buffer, Count);
   end;
   
   
  -procedure TKMemoryStream.ReadHugeString(out Value: AnsiString);
  +procedure TKSaveStream.ReadHugeString(out Value: AnsiString);
   var I: Cardinal;
   begin
     Read(I, SizeOf(I));
  
positive.code:     Read(Pointer(Value)^, I);
  end;
  
  procedure TKMemoryStreamBinary.WriteA(const Value: AnsiString);
  var I: Word;
  begin
    I := Length(Value);
  
negative.code:     Read(Pointer(Value)^, I);
  end;
  
  procedure TKSaveStream.WriteHugeString(const Value: AnsiString);
  var I: Cardinal;
  begin
    I := Length(Value);
  