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', CMsgId.Text) ; CPortTxt.Text := ReadString (SectionData, 'CPortTxt_Text', CPortTxt.Text) ; if ReadString (SectionData, 'CertAutoOrder_Checked', 'False') = 'True' then CertAutoOrder.Checked := true else CertAutoOrder.Checked := false ; CertBundleFile.Text := ReadString (SectionData, 'CertBundleFile_Text', CertBundleFile.Text) ; CertHostName.Text := ReadString (SectionData, 'CertHostName_Text', CertHostName.Text) ; if ReadString (SectionData, 'CleanBox2_Checked', 'False') = 'True' then CleanBox2.Checked := true else CleanBox2.Checked := false ; CliJTxt.Text := ReadString (SectionData, 'CliJTxt_Text', CliJTxt.Text) ; ClientHost.Text := ReadString (SectionData, 'ClientHost_Text', ClientHost.Text) ; ClientQOS.ItemIndex := ReadInteger (SectionData, 'ClientQOS_ItemIndex', ClientQOS.ItemIndex) ; 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', RootCAFile.Text) ; ServerIpAddr.Text := ReadString (SectionData, 'ServerIpAddr_Text', ServerIpAddr.Text) ; ServerNonPort.Text := ReadString (SectionData, 'ServerNonPort_Text', ServerNonPort.Text) ; ServerSSLPort.Text := ReadString (SectionData, 'ServerSSLPort_Text', ServerSSLPort.Text) ; TopicTxt.Text := ReadString (SectionData, 'TopicTxt_Text', 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 ;