anchor.diff:  interface
   
   uses
  -  Classes, IdIRC, IdComponent, IdContext, IRCCommands;
  +  Classes, IdIRC, IdComponent, IdContext, IRCCommands, IdException;
   
   type
   
  
positive.code:       procedure SendUserJoined;
        procedure DoConnect;
        procedure MessageBox(const Msg: string);
      public
        property Log: TStrings read FLog write FLog;
        property Ready: Boolean read FReady;
  
negative.code:      Exit;
  
    for I := 0 to FAutoJoinChannels.Count -1 do
      Join(FAutoJoinChannels.ValueFromIndex[I]);
    FreeAndNil(FAutoJoinChannels);
  end;
  
  procedure TIRC.MessageToChannel(const Msg: string);
  var
    Channel: string;
  begin
    Channel := RemoveOPVoicePrefix(FActiveChannel);
    Say(Channel, Msg);
    MessageReceived(FActiveChannel, FormatarMensagem(UserName, Msg))
  end;
  
  procedure TIRC.MessageReceived(const Channel, Message: string);
  