anchor.diff:  
   procedure TIRC.Disconnect;
   begin
  +  if not FIdIRC.Connected then
  +    Exit;
  +
  +  FIdIRC.IOHandler.InputBuffer.Clear;
     FIdIRC.Disconnect;
   end;
   
  
positive.code: 
  destructor TIRC.Destroy;
  begin
    FIdIRC.Free;
    FAutoJoinChannels.Free;
    FCommands.Free;
  
negative.code: 
  const
    NickNameFormat = '<%s>';
    MessageFormat = '%s ' + NickNameFormat + ': %s';
  
  procedure TIRC.ReadConfig;
  var
  