anchor.diff:      fText: UnicodeString;
     public
       IsRead: Boolean; //Does not gets saved, because it's UI thing
  -    constructor Create(aKind: TKMMessageKind; aText: string; aLoc: TKMPoint);
  +    constructor Create(aKind: TKMMessageKind; aText: UnicodeString; aLoc: TKMPoint);
       constructor CreateFromStream(LoadStream: TKMemoryStream);
   
       function Icon: Word;
  
positive.code:     property MessagesStack[aIndex: Integer]: TKMMessage read GetMessageStack;
      property MessagesLog[aIndex: Integer]: TKMMessage read GetMessageLog;
  
      procedure Add(aKind: TKMMessageKind; aText: string; aLoc: TKMPoint);
      procedure RemoveStack(aIndex: Integer);
  
      procedure Save(SaveStream: TKMemoryStream);
  
negative.code: end;
  
  
  procedure TKMMessageList.Add(aKind: TKMMessageKind; aText: UnicodeString; aLoc: TKMPoint);
  begin
    case aKind of
      mkText, mkQuill:
  