anchor.diff:  procedure TIRC.HandleIdException(E: EIdException);
   begin
     MessageBox(E.Message);
  -  if not FIdIRC.Connected then
  -    Connect;
   end;
   
   procedure TIRC.Connect;
   begin
  -  if FIdIRC.Connected then
  +  if IsConnected then
        Disconnect;
   
     ConfigureEvents;
  
positive.code:       property OnMessageReceived: TOnMessageReceived read FOnMessageReceived write FOnMessageReceived;
        property OnShowPopup: TOnShowPopup read FOnShowPopup write FOnShowPopup;
        property UserName: string read GetUserName;
        property Connected: Boolean read GetConnected;
        procedure AutoJoinChannels;
        procedure Connect;
        procedure Disconnect;
        procedure Join(const Name: string);
  
negative.code: 
  procedure TIRC.Disconnect;
  begin
    if not IsConnected then
      Exit;
  
    // It's necessary to remove the event handlers or
  