anchor.diff:  end;
   
   
  -procedure TKMGamePlayInterface.SetChatMessages(const aString: string);
  +procedure TKMGamePlayInterface.SetChatMessages(const aString: UnicodeString);
   begin
     Memo_ChatText.Text := aString;
     Memo_ChatText.ScrollToBottom;
  
positive.code: end;
  
  
  procedure TKMGamePlayInterface.SetChatText(const aString: string);
  begin
    Edit_ChatMsg.Text := aString;
    if aString <> '' then Chat_Show(nil);
  
negative.code: end;
  
  
  procedure TKMGamePlayInterface.MessageIssue(aKind: TKMMessageKind; aText: UnicodeString; aLoc: TKMPoint);
  begin
    fMessageList.Add(aKind, aText, aLoc);
    Message_UpdateStack;
  