WriteString (SectionData, 'CAFilesDir_Text', CAFilesDir.Text) ;
  if CertAddComment.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertAddComment_Checked', temp) ;
  WriteString (SectionData, 'CertAltDomains_Text', CertAltDomains.Text) ;
  WriteString (SectionData, 'CertAltIPs_Text', CertAltIPs.Text) ;
  WriteString (SectionData, 'CertCommonName_Text', CertCommonName.Text) ;
  WriteString (SectionData, 'CertCountry_Text', CertCountry.Text) ;
  WriteString (SectionData, 'CertDays_Text', CertDays.Text) ;
  WriteString (SectionData, 'CertDescr_Text', CertDescr.Text) ;
  WriteString (SectionData, 'CertEMail_Text', CertEMail.Text) ;
  if CertExtClient.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertExtClient_Checked', temp) ;
  if CertExtCodeSign.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertExtCodeSign_Checked', temp) ;
  if CertExtEmail.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertExtEmail_Checked', temp) ;
  if CertExtServer.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertExtServer_Checked', temp) ;
  WriteString (SectionData, 'CertLocality_Text', CertLocality.Text) ;
  WriteString (SectionData, 'CertOrganization_Text', CertOrganization.Text) ;
  WriteString (SectionData, 'CertOrganizationalUnit_Text', CertOrganizationalUnit.Text) ;
  WriteString (SectionData, 'CertPassword_Text', CertPassword.Text) ;
  WriteInteger (SectionData, 'CertSignHash_ItemIndex', CertSignHash.ItemIndex) ;
  WriteString (SectionData, 'CertState_Text', CertState.Text) ;
  if CertUsageCRLSign.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageCRLSign_Checked', temp) ;
  if CertUsageCertSign.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageCertSign_Checked', temp) ;
  if CertUsageDataEn.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageDataEn_Checked', temp) ;
  if CertUsageDigSign.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageDigSign_Checked', temp) ;
  if CertUsageKeyAgree.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageKeyAgree_Checked', temp) ;
  if CertUsageKeyEn.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageKeyEn_Checked', temp) ;
  if CertUsageNonRepud.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertUsageNonRepud_Checked', temp) ;
  if CheckBoxComment.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CheckBoxComment_Checked', temp) ;
  if CheckBoxEmptyDestDir.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CheckBoxEmptyDestDir_Checked', temp) ;
  if CheckBoxOverwriteExisting.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CheckBoxOverwriteExisting_Checked', temp) ;
  if CheckBoxWarnDestNotEmpty.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CheckBoxWarnDestNotEmpty_Checked', temp) ;
  if CheckBoxWriteToBundle.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CheckBoxWriteToBundle_Checked', temp) ;
  WriteString (SectionData, 'CurrentCertDirEdit_Text', CurrentCertDirEdit.Text) ;
  WriteString (SectionData, 'DHParamFile_Text', DHParamFile.Text) ;
  WriteInteger (SectionData, 'DHParamSize_ItemIndex', DHParamSize.ItemIndex) ;
  WriteString (SectionData, 'DestDirEdit_Text', DestDirEdit.Text) ;
  WriteInteger (SectionData, 'KeyEncrypt_ItemIndex', KeyEncrypt.ItemIndex) ;
  WriteInteger (SectionData, 'KeyType_ItemIndex', KeyType.ItemIndex) ;
  WriteString (SectionData, 'LoadCertFile_Text', LoadCertFile.Text) ;
  if LoadCertInters.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'LoadCertInters_Checked', temp) ;
  if LoadCertPrivKey.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'LoadCertPrivKey_Checked', temp) ;
  WriteString (SectionData, 'LoadCertPW_Text', LoadCertPW.Text) ;
  WriteString (SectionData, 'LoadDirectory_Text', LoadDirectory.Text) ;
  WriteString (SectionData, 'LoadInterCerts_Text', LoadInterCerts.Text) ;
  WriteString (SectionData, 'LoadPrivatetKey_Text', LoadPrivatetKey.Text) ;
  WriteString (SectionData, 'LoadRequestFile_Text', LoadRequestFile.Text) ;
  if NewCertCopyExt.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'NewCertCopyExt_Checked', temp) ;
  if SaveAutoReplace.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'SaveAutoReplace_Checked', temp) ;
  WriteString (SectionData, 'SaveCertDer_Text', SaveCertDer.Text) ;
  WriteString (SectionData, 'SaveCertPem_Text', SaveCertPem.Text) ;
  WriteString (SectionData, 'SaveCertPW_Text', SaveCertPW.Text) ;
  WriteString (SectionData, 'SaveDirectory_Text', SaveDirectory.Text) ;
  if SaveInterCerts.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'SaveInterCerts_Checked', temp) ;
  WriteString (SectionData, 'SavePkcs12File_Text', SavePkcs12File.Text) ;
  WriteString (SectionData, 'SavePkcs7File_Text', SavePkcs7File.Text) ;
  if SavePrivateKey.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'SavePrivateKey_Checked', temp) ;
  WriteString (SectionData, 'SavePrvFileFile_Text', SavePrvFileFile.Text) ;
  WriteString (SectionData, 'SavePubKeyFile_Text', SavePubKeyFile.Text) ;
  WriteString (SectionData, 'SaveReqCertFile_Text', SaveReqCertFile.Text) ;
  WriteString (SectionData, 'LoadCaBundleFile_Text', LoadCaBundleFile.Text) ;
  WriteInteger (SectionData, 'MsStoreType_ItemIndex', MsStoreType.ItemIndex) ;
  WriteInteger (SectionData, 'MsLocationType_ItemIndex', MsLocationType.ItemIndex) ;
  if MSBriefList.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'MSBriefList_Checked', temp) ;
  WriteString (SectionData, 'MsInstallFile_Text', MsInstallFile.Text) ;
  if CertPwPemKeys.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertPwPemKeys_Checked', temp) ;
  if CertPwPkcs12.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertPwPkcs12_Checked', temp) ;
  if CertCheckOCSP.Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertCheckOCSP_Checked', temp) ;
  WriteString (SectionData, 'IntersCAFile_Text', IntersCAFile.Text) ;
  WriteString (SectionData, 'TestHostList_Lines', TestHostList.Lines.CommaText) ;
  WriteString (SectionData, 'TestHostOne_Text', TestHostOne.Text) ;
  WriteString (SectionData, 'DownCertsPath_Text', DownCertsPath.Text) ;
  WriteString (SectionData, 'DownIntersPath_Text', DownIntersPath.Text) ;