if ReadString (SectionData, 'BounceBoxCli_Checked', 'False') = 'True' then BounceBoxCli_Checked := true else BounceBoxCli_Checked := false ; if ReadString (SectionData, 'CMBoxCli_Checked', 'False') = 'True' then CMBoxCli_Checked := true else CMBoxCli_Checked := false ; if ReadString (SectionData, 'CMBoxSrvr_Checked', 'False') = 'True' then CMBoxSrvr_Checked := true else CMBoxSrvr_Checked := false ; CMsgId_Text := ReadString (SectionData, 'CMsgId_Text', '') ; CPortTxt_Text := ReadString (SectionData, 'CPortTxt_Text', '') ; if ReadString (SectionData, 'CertAutoOrder_Checked', 'False') = 'True' then CertAutoOrder_Checked := true else CertAutoOrder_Checked := false ; CertBundleFile_Text := ReadString (SectionData, 'CertBundleFile_Text', '') ; CertHostName_Text := ReadString (SectionData, 'CertHostName_Text', '') ; if ReadString (SectionData, 'CleanBox2_Checked', 'False') = 'True' then CleanBox2_Checked := true else CleanBox2_Checked := false ; CliJTxt_Text := ReadString (SectionData, 'CliJTxt_Text', '') ; ClientHost_Text := ReadString (SectionData, 'ClientHost_Text', '') ; ClientQOS_ItemIndex := ReadInteger (SectionData, 'ClientQOS_ItemIndex', 0) ; MsgBox.Lines.CommaText := ReadString (SectionData, 'MsgBox_Lines', MsgBox.Lines.CommaText) ; if ReadString (SectionData, 'RetainBox_Checked', 'False') = 'True' then RetainBox_Checked := true else RetainBox_Checked := false ; RootCAFile_Text := ReadString (SectionData, 'RootCAFile_Text', '') ; ServerIpAddr_Text := ReadString (SectionData, 'ServerIpAddr_Text', '') ; ServerNonPort_Text := ReadString (SectionData, 'ServerNonPort_Text', '') ; ServerSSLPort_Text := ReadString (SectionData, 'ServerSSLPort_Text', '') ; TopicTxt_Text := ReadString (SectionData, 'TopicTxt_Text', '') ; TopicsTxt.Lines.CommaText := ReadString (SectionData, 'TopicsTxt_Lines', TopicsTxt.Lines.CommaText) ; if ReadString (SectionData, 'VerifyCertChain_Checked', 'False') = 'True' then VerifyCertChain_Checked := true else VerifyCertChain_Checked := false ;