anchor.diff:  //{$ENDIF}
   
   
  -procedure TKMemoryStreamBinary.ReadW(out Value: UnicodeString);
  +procedure TKMSaveStreamBinary.ReadW(out Value: UnicodeString);
   var I: Word;
   begin
     Read(I, SizeOf(I));
  
positive.code:   inherited Write(bytes[0], I);
  end;
  
  function TKMemoryStreamText.Write(const Buffer; Count: Longint): Longint;
  begin
    if Count = 1 then
      WriteText(IntToHex(PByte(@Buffer)^, 2) + 'h')
  
negative.code:   end;
  
    // Extended with custom Read/Write commands which accept various types without asking for their length
    TKMSaveStreamBinary = class(TKSaveStream)
    public
      // Assert savegame sections
      procedure CheckMarker(const aTitle: string); override;
  