anchor.diff:  begin
     ReadConfig;
     FIdIRC.Connect;
  +  ConfigureEncoding;
   end;
   
   procedure TIRC.Disconnect;
  
positive.code:   FIdIRC.OnRaw := @OnRaw;
  end;
  
  function TIRC.FormatarMensagem(const NickName, Message: string): string;
  begin
    Result := Format(MessageFormat, [NickName, Message]);
  
negative.code: procedure TIRC.ConfigureIdIRC;
  begin
    FIdIRC := TIdIRC.Create(nil);
  
    FIdIRC.OnStatus:= @OnStatus;
    FIdIRC.OnNotice:= @OnNotice;
    FIdIRC.OnMOTD:= @OnMOTD;
  