if ReadString (section, 'DataClient_Checked', 'False') = 'True' then DataClient.Checked := true else DataClient.Checked := false ;
  DataGap.Text := ReadString (section, 'DataGap_Text', '') ;
  if ReadString (section, 'DataServer_Checked', 'False') = 'True' then DataServer.Checked := true else DataServer.Checked := false ;
  DataServer.State := TCheckBoxState (ReadInteger (section, 'DataServer_State', Ord (cbUnchecked))) ;
  if ReadString (section, 'HeavyTraffic_Checked', 'False') = 'True' then HeavyTraffic.Checked := true else HeavyTraffic.Checked := false ;
  HeavyTraffic.State := TCheckBoxState (ReadInteger (section, 'HeavyTraffic_State', Ord (cbUnchecked))) ;
  LocalAddr.Text := ReadString (section, 'LocalAddr_Text', '') ;
  LocalPort.Text := ReadString (section, 'LocalPort_Text', '') ;
  if ReadString (section, 'LogErrors_Checked', 'False') = 'True' then LogErrors.Checked := true else LogErrors.Checked := false ;
  LogErrors.State := TCheckBoxState (ReadInteger (section, 'LogErrors_State', Ord (cbUnchecked))) ;
  if ReadString (section, 'LogInfo_Checked', 'False') = 'True' then LogInfo.Checked := true else LogInfo.Checked := false ;
  LogInfo.State := TCheckBoxState (ReadInteger (section, 'LogInfo_State', Ord (cbUnchecked))) ;
  MaxSockets.Text := ReadString (section, 'MaxSockets_Text', '') ;
  if ReadString (section, 'PingRemote_Checked', 'False') = 'True' then PingRemote.Checked := true else PingRemote.Checked := false ;
  Protocol.ItemIndex := ReadInteger (section, 'Protocol_ItemIndex', 0) ;
  ProxyURL.Text := ReadString (section, 'ProxyURL_Text', '') ;
  if ReadString (section, 'RawData_Checked', 'False') = 'True' then RawData.Checked := true else RawData.Checked := false ;
  RemoteHosts.Lines.CommaText := ReadString (section, 'RemoteHosts_Lines', '') ;
  RemotePort.Text := ReadString (section, 'RemotePort_Text', '') ;
  if ReadString (section, 'ReportChain_Checked', 'False') = 'True' then ReportChain.Checked := true else ReportChain.Checked := false ;
  if ReadString (section, 'RevokeCheck_Checked', 'False') = 'True' then RevokeCheck.Checked := true else RevokeCheck.Checked := false ;
  SendFileName.Text := ReadString (section, 'SendFileName_Text', '') ;
  ServerPort.Text := ReadString (section, 'ServerPort_Text', '') ;
  SocketFamily.ItemIndex := ReadInteger (section, 'SocketFamily_ItemIndex', 0) ;
  SrvTimeout.Text := ReadString (section, 'SrvTimeout_Text', '') ;
  SslCACerts.Text := ReadString (section, 'SslCACerts_Text', '') ;
  SslCertAuth.Text := ReadString (section, 'SslCertAuth_Text', '') ;
  SslCertKey.Text := ReadString (section, 'SslCertKey_Text', '') ;
  SslCliSec.ItemIndex := ReadInteger (section, 'SslCliSec_ItemIndex', 0) ;
  SslDomainName.Text := ReadString (section, 'SslDomainName_Text', '') ;
  SslCertPassword.Text := ReadString (section, 'SslCertPassword_Text', '') ;
  SslServCert.Text := ReadString (section, 'SslServCert_Text', '') ;
  SslSrvSec.ItemIndex := ReadInteger (section, 'SslSrvSec_ItemIndex', 0) ;
  if ReadString (section, 'UseSSL_Checked', 'False') = 'True' then UseSSL.Checked := true else UseSSL.Checked := false ;
  VerifyCertMode.ItemIndex := ReadInteger (section, 'VerifyCertMode_ItemIndex', 0) ;
  if ReadString (section, 'SslCertAutoOrder_Checked', 'False') = 'True' then SslCertAutoOrder.Checked := true else SslCertAutoOrder.Checked := false ;
  SslCertExpireDays.Text := ReadString (section, 'SslCertExpireDays_Text', '') ;
  SslCertSupplierProto.ItemIndex := ReadInteger (section, 'SslCertSupplierProto_ItemIndex', 0) ;
  SslCertChallenge.ItemIndex := ReadInteger (section, 'SslCertChallenge_ItemIndex', 0) ;
  SslCertPKeyType.ItemIndex := ReadInteger (section, 'SslCertPKeyType_ItemIndex', 0) ;
  SslCertSignDigest.ItemIndex := ReadInteger (section, 'SslCertSignDigest_ItemIndex', 0) ;
  SslCertDirWork.Text := ReadString (section, 'SslCertDirWork_Text', '') ;
  SslCertProduct.Text := ReadString (section, 'SslCertProduct_Text', '') ;
  DirLogs.Text := ReadString (section, 'DirLogs_Text', '') ;
  DnsChlgType.ItemIndex := ReadInteger (section, 'DnsChlgType_ItemIndex', 0) ;
  if ReadString (section, 'DataUnicode_Checked', 'False') = 'True' then DataUnicode.Checked := true else DataUnicode.Checked := false ;
  if ReadString (section, 'UseUtf8_Checked', 'False') = 'True' then UseUtf8.Checked := true else UseUtf8.Checked := false ;