anchor.diff:  procedure TIRC.ConfigureIdIRC;
   begin
     FIdIRC := TIdIRC.Create(nil);
  +
     FIdIRC.OnStatus:= @OnStatus;
     FIdIRC.OnNotice:= @OnNotice;
     FIdIRC.OnMOTD:= @OnMOTD;
  
positive.code:       FOnMessageReceived: TOnMessageReceived;
        FAutoJoinChannels: TStrings;
        FCommands: TIRCCommand;
        procedure ConfigureIdIRC;
        function FormatarMensagem(const NickName, Message: string): string;
        function GetUserName: string;
  
negative.code: begin
    ReadConfig;
    FIdIRC.Connect;
    ConfigureEncoding;
  end;
  
  procedure TIRC.Disconnect;
  