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:     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:
  