WriteInteger (section, 'FilterIpAddr_ItemIndex', FilterIpAddr.ItemIndex) ;
  WriteInteger (section, 'FilterProtocol_ItemIndex', FilterProtocol.ItemIndex) ;
  WriteString (section, 'IpAddrList_Lines', IpAddrList.Lines.CommaText) ;
  if IpAddrLocal.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'IpAddrLocal_Checked', temp) ;
  WriteInteger (section, 'MonAdptList_ItemIndex', MonAdptList.ItemIndex) ;
  WriteInteger (section, 'MonIpList_ItemIndex', MonIpList.ItemIndex) ;
  if MonPromiscuous.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'MonPromiscuous_Checked', temp) ;
  if ProtocolIRC.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolIRC_Checked', temp) ;
  WriteString (section, 'PortsList_Lines', PortsList.Lines.CommaText) ;
  if ProtocolARP.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolARP_Checked', temp) ;
  if ProtocolBroadcast.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolBroadcast_Checked', temp) ;
  if ProtocolDns.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolDns_Checked', temp) ;
  if ProtocolHttp.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolHttp_Checked', temp) ;
  if ProtocolICMP.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolICMP_Checked', temp) ;
  if ProtocolIPv4.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolIPv4_Checked', temp) ;
  if ProtocolIPv6.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolIPv6_Checked', temp) ;
  if ProtocolNonIp.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolNonIp_Checked', temp) ;
  if ProtocolSNMP.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolSNMP_Checked', temp) ;
  if ProtocolSyslog.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolSyslog_Checked', temp) ;
  if ProtocolTCP.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolTCP_Checked', temp) ;
  if ProtocolUPnP.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolUPnP_Checked', temp) ;
  if ProtocolUdp.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ProtocolUdp_Checked', temp) ;
  if ShowFullData.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowFullData_Checked', temp) ;
  if ShowIgnoreData.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowIgnoreData_Checked', temp) ;
  if UseWinNCap.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'UseWinNCap_Checked', temp) ;