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