AccAcmeKeyV2_ItemIndex := ReadInteger (SectionData, 'AccAcmeKeyV2_ItemIndex', 0) ; AcmeServerV2_Text := ReadString (SectionData, 'AcmeServerV2_Text', '') ; if ReadString (SectionData, 'AutoOrderComplete_Checked', 'False') = 'True' then AutoOrderComplete_Checked := true else AutoOrderComplete_Checked := false ; CACertFile_Text := ReadString (SectionData, 'CACertFile_Text', '') ; CAPkeyFile_Text := ReadString (SectionData, 'CAPkeyFile_Text', '') ; CAPkeyPw_Text := ReadString (SectionData, 'CAPkeyPw_Text', '') ; CertAddress_Text := ReadString (SectionData, 'CertAddress_Text', '') ; CertCentreApprovEmail_Text := ReadString (SectionData, 'CertCentreApprovEmail_Text', '') ; CertCentreOrderId_Text := ReadString (SectionData, 'CertCentreOrderId_Text', '') ; CertCentreOrderRef_Text := ReadString (SectionData, 'CertCentreOrderRef_Text', '') ; CertCentreProducts_ItemIndex := ReadInteger (SectionData, 'CertCentreProducts_ItemIndex', 0) ; CertCentreProducts.Items.CommaText := ReadString (SectionData, 'CertCentreProducts_Items', '') ; CertCentreServer_Text := ReadString (SectionData, 'CertCentreServer_Text', '') ; CertCommonName_Text := ReadString (SectionData, 'CertCommonName_Text', '') ; CertContactEmail_Text := ReadString (SectionData, 'CertContactEmail_Text', '') ; CertContactFirst_Text := ReadString (SectionData, 'CertContactFirst_Text', '') ; CertContactLast_Text := ReadString (SectionData, 'CertContactLast_Text', '') ; CertContactTitle_Text := ReadString (SectionData, 'CertContactTitle_Text', '') ; CertCountry_Text := ReadString (SectionData, 'CertCountry_Text', '') ; CertCsrOrigin_ItemIndex := ReadInteger (SectionData, 'CertCsrOrigin_ItemIndex', 0) ; CertLocality_Text := ReadString (SectionData, 'CertLocality_Text', '') ; CertOldCsrFile_Text := ReadString (SectionData, 'CertOldCsrFile_Text', '') ; CertOldPrvKey_Text := ReadString (SectionData, 'CertOldPrvKey_Text', '') ; CertOrganization_Text := ReadString (SectionData, 'CertOrganization_Text', '') ; CertOrganizationalUnit_Text := ReadString (SectionData, 'CertOrganizationalUnit_Text', '') ; if ReadString (SectionData, 'CertOutFmtBudl_Checked', 'False') = 'True' then CertOutFmtBudl_Checked := true else CertOutFmtBudl_Checked := false ; if ReadString (SectionData, 'CertOutFmtP12_Checked', 'False') = 'True' then CertOutFmtP12_Checked := true else CertOutFmtP12_Checked := false ; if ReadString (SectionData, 'CertOutFmtP7_Checked', 'False') = 'True' then CertOutFmtP7_Checked := true else CertOutFmtP7_Checked := false ; if ReadString (SectionData, 'CertOutFmtReq_Checked', 'False') = 'True' then CertOutFmtReq_Checked := true else CertOutFmtReq_Checked := false ; if ReadString (SectionData, 'CertOutFmtSep_Checked', 'False') = 'True' then CertOutFmtSep_Checked := true else CertOutFmtSep_Checked := false ; CertPhone_Text := ReadString (SectionData, 'CertPhone_Text', '') ; CertPostCode_Text := ReadString (SectionData, 'CertPostCode_Text', '') ; CertSerNumType_ItemIndex := ReadInteger (SectionData, 'CertSerNumType_ItemIndex', 0) ; CertSignDigestType_ItemIndex := ReadInteger (SectionData, 'CertSignDigestType_ItemIndex', 0) ; CertState_Text := ReadString (SectionData, 'CertState_Text', '') ; CertValidity_Text := ReadString (SectionData, 'CertValidity_Text', '') ; DebugLogging_ItemIndex := ReadInteger (SectionData, 'DebugLogging_ItemIndex', 0) ; DirAcmeConfV2_Text := ReadString (SectionData, 'DirAcmeConfV2_Text', '') ; DirCertCenConf_Text := ReadString (SectionData, 'DirCertCenConf_Text', '') ; DirDatabase.Items.CommaText := ReadString (SectionData, 'DirDatabase_Items', '') ; DirDatabase_Text := ReadString (SectionData, 'DirDatabase_Text', '') ; DirLogs_Text := ReadString (SectionData, 'DirLogs_Text', '') ; DirPubWebCert_Text := ReadString (SectionData, 'DirPubWebCert_Text', '') ; DirWellKnown_Text := ReadString (SectionData, 'DirWellKnown_Text', '') ; DomWebSrvIP_Text := ReadString (SectionData, 'DomWebSrvIP_Text', '') ; if ReadString (SectionData, 'LogJson_Checked', 'False') = 'True' then LogJson_Checked := true else LogJson_Checked := false ; if ReadString (SectionData, 'LogPkeys_Checked', 'False') = 'True' then LogPkeys_Checked := true else LogPkeys_Checked := false ; OAuthAccToken_Text := ReadString (SectionData, 'OAuthAccToken_Text', '') ; OAuthAppUrl_Text := ReadString (SectionData, 'OAuthAppUrl_Text', '') ; if ReadString (SectionData, 'OAuthAutoRefresh_Checked', 'False') = 'True' then OAuthAutoRefresh_Checked := true else OAuthAutoRefresh_Checked := false ; OAuthClientId_Text := ReadString (SectionData, 'OAuthClientId_Text', '') ; OAuthClientSecret_Text := ReadString (SectionData, 'OAuthClientSecret_Text', '') ; OAuthExpire_Text := ReadString (SectionData, 'OAuthExpire_Text', '') ; OAuthRedirectUrl_Text := ReadString (SectionData, 'OAuthRedirectUrl_Text', '') ; OAuthRefToken_Text := ReadString (SectionData, 'OAuthRefToken_Text', '') ; OAuthRefrMins_Text := ReadString (SectionData, 'OAuthRefrMins_Text', '') ; OAuthScope_Text := ReadString (SectionData, 'OAuthScope_Text', '') ; OAuthTokenUrl_Text := ReadString (SectionData, 'OAuthTokenUrl_Text', '') ; OAuthWebIP_Text := ReadString (SectionData, 'OAuthWebIP_Text', '') ; OAuthWebPort_Text := ReadString (SectionData, 'OAuthWebPort_Text', '') ; OwnCACertDir_Text := ReadString (SectionData, 'OwnCACertDir_Text', '') ; PrivKeyCipher_ItemIndex := ReadInteger (SectionData, 'PrivKeyCipher_ItemIndex', 0) ; PrivKeyPassword_Text := ReadString (SectionData, 'PrivKeyPassword_Text', '') ; PrivKeyType_ItemIndex := ReadInteger (SectionData, 'PrivKeyType_ItemIndex', 0) ; SuppCertChallenge_ItemIndex := ReadInteger (SectionData, 'SuppCertChallenge_ItemIndex', 0) ; SupplierEmail_Text := ReadString (SectionData, 'SupplierEmail_Text', '') ; IpSocFamily_ItemIndex := ReadInteger (SectionData, 'IpSocFamily_ItemIndex', 0) ; ProxyURL_Text := ReadString (SectionData, 'ProxyURL_Text', '') ; DnsChlgType_ItemIndex := ReadInteger (SectionData, 'DnsChlgType_ItemIndex', 0) ; if ReadString (SectionData, 'SelfSignedCA_Checked', 'False') = 'True' then SelfSignedCA_Checked := true else SelfSignedCA_Checked := false ; 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, 'CertWindowsStore_Checked', 'False') = 'True' then CertWindowsStore_Checked := true else CertWindowsStore_Checked := false ; if ReadString (SectionData, 'OAuthExtBrowser_Checked', 'False') = 'True' then OAuthExtBrowser_Checked := true else OAuthExtBrowser_Checked := false ; DomWebSrvIP2_Text := ReadString (SectionData, 'DomWebSrvIP2_Text', '') ; CertMsStoreLoc_ItemIndex := ReadInteger (SectionData, 'CertMsStoreLoc_ItemIndex', 0) ;