anchor.diff:  constructor TIRC.Create;
   begin
     inherited;
  -  ConfigureIdIRC;
  +  FIdIRC := TIdIRC.Create(nil);
     FCommands := TIRCCommand.Create;
   end;
   
  
positive.code: function TIRC.HighlightUserName(const AMessage: String): string;
  begin
    Result := StringReplace(AMessage, UserName, Format(NickNameFormat, [UserName]), [])
  end;
  
  function TIRC.IsInputCommand(const Message: string): Boolean;
  
negative.code:       procedure ConfigureEvents;
        procedure ConfigureIdIRC;
        function FormatarMensagem(const NickName, Message: string): string;
        function GetUserName: string;
        function HighlightUserName(const AMessage: String): string;
        function IsInputCommand(const Message: string): Boolean;
  