anchor.diff:  type
     TKMemoryStream = class(TMemoryStream)
     public
  -    function Write(const Value:integer): Longint; reintroduce; overload; //@Lewin: Any idea how do to avoid warning message here?
  -    function Write(const Value:byte): Longint; reintroduce; overload;    //@Krom: 'reintroduce' does the trick :)
  +    function Write(const Value:TKMPoint): Longint; reintroduce; overload;
  +    function Write(const Value:single): Longint; reintroduce; overload;
  +    function Write(const Value:integer): Longint; reintroduce; overload;
  +    function Write(const Value:byte): Longint; reintroduce; overload;
       function Write(const Value:boolean): Longint; reintroduce; overload;
  +    function Read(var Value:TKMPoint): Longint; reintroduce; overload;
  +    function Read(var Value:single): Longint; reintroduce; overload;
       function Read(var Value:integer): Longint; reintroduce; overload;
       function Read(var Value:byte): Longint; reintroduce; overload;
       function Read(var Value:boolean): Longint; reintroduce; overload;
  
positive.code: 
  
  { TKMemoryStream }
  function TKMemoryStream.Write(const Value:integer): Longint;
  begin
    Result := Inherited Write(Value, SizeOf(Value));
  end;
  
  function TKMemoryStream.Write(const Value:byte): Longint;
  begin
    Result := Inherited Write(Value, SizeOf(Value));
  end;
  
  function TKMemoryStream.Write(const Value:boolean): Longint;
  begin
    Result := Inherited Write(Value, SizeOf(Value));
  end;
  
  
  function TKMemoryStream.Read(var Value:integer): Longint;
  begin
    Result := Inherited Read(Value, SizeOf(Value));
  end;
  
  function TKMemoryStream.Read(var Value:byte): Longint;
  begin
    Result := Inherited Read(Value, SizeOf(Value));
  end;
  
  function TKMemoryStream.Read(var Value:boolean): Longint;
  begin
    Result := Inherited Read(Value, SizeOf(Value));
  end;
  
  
  { TKMMessageList }
  
negative.code:   LoadStream.Read(Count);
    setlength(List,Count+32);
    for i:=1 to Count do
    LoadStream.Read(List[i]);
  end;
  
  
  