anchor.diff:  
   
   { TKMemoryStream }
  +function TKMemoryStream.Write(const Value:TKMPoint): Longint;
  +begin Result := Inherited Write(Value, SizeOf(Value)); end;
  +function TKMemoryStream.Write(const Value:single): Longint;
  +begin Result := Inherited Write(Value, SizeOf(Value)); end;
   function TKMemoryStream.Write(const Value:integer): Longint;
  -begin
  -  Result := Inherited Write(Value, SizeOf(Value));
  -end;
  -
  +begin Result := Inherited Write(Value, SizeOf(Value)); end;
   function TKMemoryStream.Write(const Value:byte): Longint;
  -begin
  -  Result := Inherited Write(Value, SizeOf(Value));
  -end;
  -
  +begin Result := Inherited Write(Value, SizeOf(Value)); end;
   function TKMemoryStream.Write(const Value:boolean): Longint;
  -begin
  -  Result := Inherited Write(Value, SizeOf(Value));
  -end;
  -
  -
  +begin Result := Inherited Write(Value, SizeOf(Value)); end;
  +
  +
  +function TKMemoryStream.Read(var Value:TKMPoint): Longint;
  +begin Result := Inherited Read(Value, SizeOf(Value)); end;
  +function TKMemoryStream.Read(var Value:single): Longint;
  +begin Result := Inherited Read(Value, SizeOf(Value)); end;
   function TKMemoryStream.Read(var Value:integer): Longint;
  -begin
  -  Result := Inherited Read(Value, SizeOf(Value));
  -end;
  -
  +begin Result := Inherited Read(Value, SizeOf(Value)); end;
   function TKMemoryStream.Read(var Value:byte): Longint;
  -begin
  -  Result := Inherited Read(Value, SizeOf(Value));
  -end;
  -
  +begin Result := Inherited Read(Value, SizeOf(Value)); end;
   function TKMemoryStream.Read(var Value:boolean): Longint;
  -begin
  -  Result := Inherited Read(Value, SizeOf(Value));
  -end;
  +begin Result := Inherited Read(Value, SizeOf(Value)); end;
   
   
   { TKMMessageList }
  
positive.code: begin
    SaveStream.Write(Count);
    for i:=1 to Count do
    SaveStream.Write(List[i], SizeOf(List[i]));
  end;
  
  
  
negative.code:   LoadStream.Read(Count);
    setlength(List,Count+32);
    for i:=1 to Count do
    LoadStream.Read(List[i]);
  end;
  
  
  