anchor.diff:    LoadStream.Read(Count);
     setlength(List,Count+32);
     for i:=1 to Count do
  -  LoadStream.Read(List[i], SizeOf(List[i]));
  +  LoadStream.Read(List[i]);
   end;
   
   
  
positive.code: 
    for i:=1 to Count do
    begin
      SaveStream.Write(Tag[i],4);
      SaveStream.Write(Tag2[i],4);
    end;
  end;
  
  
negative.code: 
  
  { 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;
  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: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;
  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 }
  