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