WriteString (section, 'CAFilesDir_Text', CAFilesDir_Text) ;
  if CertAddComment_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertAddComment_Checked', temp) ;
  WriteString (section, 'CertAltDomains_Text', CertAltDomains_Text) ;
  WriteString (section, 'CertAltIPs_Text', CertAltIPs_Text) ;
  WriteString (section, 'CertCommonName_Text', CertCommonName_Text) ;
  WriteString (section, 'CertCountry_Text', CertCountry_Text) ;
  WriteString (section, 'CertDays_Text', CertDays_Text) ;
  WriteString (section, 'CertDescr_Text', CertDescr_Text) ;
  WriteString (section, 'CertEMail_Text', CertEMail_Text) ;
  if CertExtClient_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertExtClient_Checked', temp) ;
  if CertExtCodeSign_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertExtCodeSign_Checked', temp) ;
  if CertExtEmail_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertExtEmail_Checked', temp) ;
  if CertExtServer_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertExtServer_Checked', temp) ;
  WriteString (section, 'CertLocality_Text', CertLocality_Text) ;
  WriteString (section, 'CertOrganization_Text', CertOrganization_Text) ;
  WriteString (section, 'CertOrganizationalUnit_Text', CertOrganizationalUnit_Text) ;
  WriteString (section, 'CertPassword_Text', CertPassword_Text) ;
  WriteInteger (section, 'CertSignHash_ItemIndex', CertSignHash_ItemIndex) ;
  WriteString (section, 'CertState_Text', CertState_Text) ;
  if CertUsageCRLSign_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageCRLSign_Checked', temp) ;
  if CertUsageCertSign_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageCertSign_Checked', temp) ;
  if CertUsageDataEn_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageDataEn_Checked', temp) ;
  if CertUsageDigSign_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageDigSign_Checked', temp) ;
  if CertUsageKeyAgree_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageKeyAgree_Checked', temp) ;
  if CertUsageKeyEn_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageKeyEn_Checked', temp) ;
  if CertUsageNonRepud_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertUsageNonRepud_Checked', temp) ;
  if CheckBoxComment_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CheckBoxComment_Checked', temp) ;
  if CheckBoxEmptyDestDir_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CheckBoxEmptyDestDir_Checked', temp) ;
  if CheckBoxOverwriteExisting_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CheckBoxOverwriteExisting_Checked', temp) ;
  if CheckBoxWarnDestNotEmpty_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CheckBoxWarnDestNotEmpty_Checked', temp) ;
  if CheckBoxWriteToBundle_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CheckBoxWriteToBundle_Checked', temp) ;
  WriteString (section, 'CurrentCertDirEdit_Text', CurrentCertDirEdit_Text) ;
  WriteString (section, 'DestDirEdit_Text', DestDirEdit_Text) ;
  WriteInteger (section, 'KeyEncrypt_ItemIndex', KeyEncrypt_ItemIndex) ;
  WriteInteger (section, 'KeyType_ItemIndex', KeyType_ItemIndex) ;
  WriteString (section, 'LoadCertFile_Text', LoadCertFile_Text) ;
  if LoadCertInters_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'LoadCertInters_Checked', temp) ;
  if LoadCertPrivKey_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'LoadCertPrivKey_Checked', temp) ;
  WriteString (section, 'LoadCertPW_Text', LoadCertPW_Text) ;
  WriteString (section, 'LoadDirectory_Text', LoadDirectory_Text) ;
  WriteString (section, 'LoadInterCerts_Text', LoadInterCerts_Text) ;
  WriteString (section, 'LoadPrivatetKey_Text', LoadPrivatetKey_Text) ;
  WriteString (section, 'LoadRequestFile_Text', LoadRequestFile_Text) ;
  if NewCertCopyExt_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'NewCertCopyExt_Checked', temp) ;
  if SaveAutoReplace_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'SaveAutoReplace_Checked', temp) ;
  WriteString (section, 'SaveCertDer_Text', SaveCertDer_Text) ;
  WriteString (section, 'SaveCertPem_Text', SaveCertPem_Text) ;
  WriteString (section, 'SaveCertPW_Text', SaveCertPW_Text) ;
  WriteString (section, 'SaveDirectory_Text', SaveDirectory_Text) ;
  if SaveInterCerts_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'SaveInterCerts_Checked', temp) ;
  WriteString (section, 'SavePkcs12File_Text', SavePkcs12File_Text) ;
  WriteString (section, 'SavePkcs7File_Text', SavePkcs7File_Text) ;
  if SavePrivateKey_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'SavePrivateKey_Checked', temp) ;
  WriteString (section, 'SavePrvFileFile_Text', SavePrvFileFile_Text) ;
  WriteString (section, 'SavePubKeyFile_Text', SavePubKeyFile_Text) ;
  WriteString (section, 'SaveReqCertFile_Text', SaveReqCertFile_Text) ;
  WriteString (section, 'LoadCaBundleFile_Text', LoadCaBundleFile_Text) ;
  WriteInteger (section, 'MsStoreType_ItemIndex', MsStoreType_ItemIndex) ;
  WriteInteger (section, 'MsLocationType_ItemIndex', MsLocationType_ItemIndex) ;
  if MSBriefList_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'MSBriefList_Checked', temp) ;
  WriteString (section, 'MsInstallFile_Text', MsInstallFile_Text) ;
  if CertPwPemKeys_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertPwPemKeys_Checked', temp) ;
  if CertPwPkcs12_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertPwPkcs12_Checked', temp) ;
  if CertCheckOCSP_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertCheckOCSP_Checked', temp) ;
  WriteString (section, 'IntersCAFile_Text', IntersCAFile_Text) ;
  WriteString (section, 'TestHostOne_Text', TestHostOne_Text) ;
  WriteString (section, 'DownCertsPath_Text', DownCertsPath_Text) ;
  WriteString (section, 'DownIntersPath_Text', DownIntersPath_Text) ;
  WriteString (section, 'MsSearchCert_Text', MsSearchCert_Text) ;
  if CertsRootCA_Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CertsRootCA_Checked', temp) ;
  WriteString (section, 'QuickCAFile_Text', QuickCAFile_Text) ;
  WriteString (section, 'QuickCertPath_Text', QuickCertPath_Text) ;
  WriteString (section, 'QuickPassword_Text', QuickPassword_Text) ;