anchor.diff:        procedure MessageToChannel(const Msg: string);
         procedure MessageReceived(const Channel, Message: string);
         procedure Raw(const RawString: string);
  -      procedure ReadConfig;
         procedure OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
         procedure OnNotice(ASender: TIdContext; const ANicknameFrom, AHost, ANicknameTo, ANotice: String);
         procedure OnMOTD(ASender: TIdContext; AMOTD: TStrings);
  
positive.code: destructor TIRC.Destroy;
  begin
    FIdIRC.Free;
    FAutoJoinChannels.Free;
    FCommands.Free;
    inherited;
  end;
  
negative.code:       property OnMessageReceived: TOnMessageReceived read FOnMessageReceived write FOnMessageReceived;
        property OnShowPopup: TOnShowPopup read FOnShowPopup write FOnShowPopup;
        property UserName: string read GetUserName;
        function IsConnected: Boolean;
        procedure Connect;
        procedure Disconnect;
  