anchor.diff:  
   
   { TKMMessage }
  -constructor TKMMessage.Create(aKind: TKMMessageKind; aText: string; aLoc: TKMPoint);
  +constructor TKMMessage.Create(aKind: TKMMessageKind; aText: UnicodeString; aLoc: TKMPoint);
   begin
     inherited Create;
     fKind := aKind;
  
positive.code:     fText: UnicodeString;
    public
      IsRead: Boolean; //Does not gets saved, because it's UI thing
      constructor Create(aKind: TKMMessageKind; aText: string; aLoc: TKMPoint);
      constructor CreateFromStream(LoadStream: TKMemoryStream);
  
      function Icon: Word;
  
negative.code: end;
  
  
  procedure TKMMessageList.Add(aKind: TKMMessageKind; aText: UnicodeString; aLoc: TKMPoint);
  begin
    case aKind of
      mkText, mkQuill:
  