anchor.diff:        procedure ConfigureEncoding;
         procedure ConfigureIdIRC;
         function FormatarMensagem(const NickName, Message: string): string;
  +      function GetConnected: Boolean;
         function GetUserName: string;
         function HighlightUserName(const AMessage: String): string;
         function IsInputCommand(const Message: string): Boolean;
  
positive.code:   Result := Format(MessageFormat, [NickName, Message]);
  end;
  
  function TIRC.GetUserName: string;
  begin
    Result := FIdIRC.UsedNickname;
  
negative.code:       property OnUserParted: TOnUserEvent read FOnUserLeft write FOnUserLeft;
        property OnMessageReceived: TOnMessageReceived read FOnMessageReceived write FOnMessageReceived;
        property UserName: string read GetUserName;
        property Connected: Boolean read GetConnected;
        procedure AutoJoinChannels;
        procedure Connect;
        procedure Disconnect;
  