if DataClient.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'DataClient_Checked', temp) ;
  WriteString (section, 'DataGap_Text', DataGap.Text) ;
  if DataServer.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'DataServer_Checked', temp) ;
  WriteInteger (section, 'DataServer_State', Ord (DataServer.State)) ;
  if HeavyTraffic.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'HeavyTraffic_Checked', temp) ;
  WriteInteger (section, 'HeavyTraffic_State', Ord (HeavyTraffic.State)) ;
  WriteString (section, 'LocalAddr_Text', LocalAddr.Text) ;
  WriteString (section, 'LocalPort_Text', LocalPort.Text) ;
  if LogErrors.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'LogErrors_Checked', temp) ;
  WriteInteger (section, 'LogErrors_State', Ord (LogErrors.State)) ;
  if LogInfo.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'LogInfo_Checked', temp) ;
  WriteInteger (section, 'LogInfo_State', Ord (LogInfo.State)) ;
  WriteString (section, 'MaxSockets_Text', MaxSockets.Text) ;
  if PingRemote.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'PingRemote_Checked', temp) ;
  WriteInteger (section, 'Protocol_ItemIndex', Protocol.ItemIndex) ;
  WriteString (section, 'ProxyURL_Text', ProxyURL.Text) ;
  if RawData.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'RawData_Checked', temp) ;
  WriteString (section, 'RemoteHosts_Lines', RemoteHosts.Lines.CommaText) ;
  WriteString (section, 'RemotePort_Text', RemotePort.Text) ;
  if ReportChain.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ReportChain_Checked', temp) ;
  if RevokeCheck.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'RevokeCheck_Checked', temp) ;
  WriteString (section, 'SendFileName_Text', SendFileName.Text) ;
  WriteString (section, 'ServerPort_Text', ServerPort.Text) ;
  WriteInteger (section, 'SocketFamily_ItemIndex', SocketFamily.ItemIndex) ;
  WriteString (section, 'SrvTimeout_Text', SrvTimeout.Text) ;
  WriteString (section, 'SslCACerts_Text', SslCACerts.Text) ;
  WriteString (section, 'SslCertAuth_Text', SslCertAuth.Text) ;
  WriteString (section, 'SslCertKey_Text', SslCertKey.Text) ;
  WriteInteger (section, 'SslCliSec_ItemIndex', SslCliSec.ItemIndex) ;
  WriteString (section, 'SslDomainName_Text', SslDomainName.Text) ;
  WriteString (section, 'SslCertPassword_Text', SslCertPassword.Text) ;
  WriteString (section, 'SslServCert_Text', SslServCert.Text) ;
  WriteInteger (section, 'SslSrvSec_ItemIndex', SslSrvSec.ItemIndex) ;
  if UseSSL.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'UseSSL_Checked', temp) ;
  WriteInteger (section, 'VerifyCertMode_ItemIndex', VerifyCertMode.ItemIndex) ;
  if SslCertAutoOrder.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'SslCertAutoOrder_Checked', temp) ;
  WriteString (section, 'SslCertExpireDays_Text', SslCertExpireDays.Text) ;
  WriteInteger (section, 'SslCertSupplierProto_ItemIndex', SslCertSupplierProto.ItemIndex) ;
  WriteInteger (section, 'SslCertChallenge_ItemIndex', SslCertChallenge.ItemIndex) ;
  WriteInteger (section, 'SslCertPKeyType_ItemIndex', SslCertPKeyType.ItemIndex) ;
  WriteInteger (section, 'SslCertSignDigest_ItemIndex', SslCertSignDigest.ItemIndex) ;
  WriteString (section, 'SslCertDirWork_Text', SslCertDirWork.Text) ;
  WriteString (section, 'SslCertProduct_Text', SslCertProduct.Text) ;
  WriteString (section, 'DirLogs_Text', DirLogs.Text) ;
  WriteInteger (section, 'DnsChlgType_ItemIndex', DnsChlgType.ItemIndex) ;
  if DataUnicode.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'DataUnicode_Checked', temp) ;
  if UseUtf8.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'UseUtf8_Checked', temp) ;