anchor.diff:  
   procedure TIRC.Disconnect;
   begin
  +  if not FIdIRC.Connected then
  +    Exit;
  +
  +  FIdIRC.IOHandler.InputBuffer.Clear;
     FIdIRC.Disconnect;
   end;
   
  
positive.code: 
  const
    NickNameFormat = '<%s>';
    MessageFormat = NickNameFormat + ': %s';
  
  procedure TIRC.ReadConfig;
  var
  
negative.code: 
  function TIRC.FormatarMensagem(const NickName, Message: string): string;
  begin
    Result := Format(MessageFormat, [FormatDateTime(ShortTimeFormat, Now), NickName, Message]);
  end;
  
  function TIRC.GetConnected: Boolean;
  