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: constructor TIRC.Create;
  begin
    inherited;
    ConfigureIdIRC;
    FCommands := TIRCCommand.Create;
  end;
  
  
negative.code: 
  procedure TIRC.Disconnect;
  begin
    if not IsConnected then
      Exit;
  
    // It's necessary to remove the event handlers or
  