if ReadString (section, 'CopyEmptyDirs_Checked', 'False') = 'True' then CopyEmptyDirs.Checked := true else CopyEmptyDirs.Checked := false ; CopyFileRepl.ItemIndex := ReadInteger (section, 'CopyFileRepl_ItemIndex', CopyFileRepl.ItemIndex) ; CopyIgnorePath.Text := ReadString (section, 'CopyIgnorePath_Text', CopyIgnorePath.Text) ; CopySrcDir.Text := ReadString (section, 'CopySrcDir_Text', CopySrcDir.Text) ; CopySrcFile.Text := ReadString (section, 'CopySrcFile_Text', CopySrcFile.Text) ; if ReadString (section, 'CopySubdirs_Checked', 'False') = 'True' then CopySubdirs.Checked := true else CopySubdirs.Checked := false ; CopyTarDir.Text := ReadString (section, 'CopyTarDir_Text', CopyTarDir.Text) ; if ReadString (section, 'CopyWow64Disable_Checked', 'False') = 'True' then CopyWow64Disable.Checked := true else CopyWow64Disable.Checked := false ; DirLogs.Text := ReadString (section, 'DirLogs_Text', DirLogs.Text) ; Ftp1LocDir.Text := ReadString (section, 'Ftp1LocDir_Text', Ftp1LocDir.Text) ; Ftp1Path.Text := ReadString (section, 'Ftp1Path_Text', Ftp1Path.Text) ; Ftp1SrcName.Text := ReadString (section, 'Ftp1SrcName_Text', Ftp1SrcName.Text) ; Ftp1UpFile.Text := ReadString (section, 'Ftp1UpFile_Text', Ftp1UpFile.Text) ; FtpBandWidth.Text := ReadString (section, 'FtpBandWidth_Text', FtpBandWidth.Text) ; if ReadString (section, 'FtpCopyAllDir_Checked', 'False') = 'True' then FtpCopyAllDir.Checked := true else FtpCopyAllDir.Checked := false ; if ReadString (section, 'FtpDelDone_Checked', 'False') = 'True' then FtpDelDone.Checked := true else FtpDelDone.Checked := false ; if ReadString (section, 'FtpDelOldTar_Checked', 'False') = 'True' then FtpDelOldTar.Checked := true else FtpDelOldTar.Checked := false ; if ReadString (section, 'FtpEmptyDirs_Checked', 'False') = 'True' then FtpEmptyDirs.Checked := true else FtpEmptyDirs.Checked := false ; FtpHost.Text := ReadString (section, 'FtpHost_Text', FtpHost.Text) ; FtpIgnorePath.Text := ReadString (section, 'FtpIgnorePath_Text', FtpIgnorePath.Text) ; if ReadString (section, 'FtpIgnoreUtf8_Checked', 'False') = 'True' then FtpIgnoreUtf8.Checked := true else FtpIgnoreUtf8.Checked := false ; FtpKeepAlive.Text := ReadString (section, 'FtpKeepAlive_Text', FtpKeepAlive.Text) ; FtpLocDir.Text := ReadString (section, 'FtpLocDir_Text', FtpLocDir.Text) ; FtpMultiFileRepl.ItemIndex := ReadInteger (section, 'FtpMultiFileRepl_ItemIndex', FtpMultiFileRepl.ItemIndex) ; if ReadString (section, 'FtpNoCrc_Checked', 'False') = 'True' then FtpNoCrc.Checked := true else FtpNoCrc.Checked := false ; if ReadString (section, 'FtpNoFeatCmd_Checked', 'False') = 'True' then FtpNoFeatCmd.Checked := true else FtpNoFeatCmd.Checked := false ; if ReadString (section, 'FtpNoHost_Checked', 'False') = 'True' then FtpNoHost.Checked := true else FtpNoHost.Checked := false ; if ReadString (section, 'FtpNoMd5_Checked', 'False') = 'True' then FtpNoMd5.Checked := true else FtpNoMd5.Checked := false ; if ReadString (section, 'FtpNoTmpFile_Checked', 'False') = 'True' then FtpNoTmpFile.Checked := true else FtpNoTmpFile.Checked := false ; if ReadString (section, 'FtpNoUtf8_Checked', 'False') = 'True' then FtpNoUtf8.Checked := true else FtpNoUtf8.Checked := false ; if ReadString (section, 'FtpNoZlib_Checked', 'False') = 'True' then FtpNoZlib.Checked := true else FtpNoZlib.Checked := false ; if ReadString (section, 'Ftp1DelDone_Checked', 'False') = 'True' then Ftp1DelDone.Checked := true else Ftp1DelDone.Checked := false ; Ftp1FileRepl.ItemIndex := ReadInteger (section, 'Ftp1FileRepl_ItemIndex', Ftp1FileRepl.ItemIndex) ; if ReadString (section, 'FtpPassive_Checked', 'False') = 'True' then FtpPassive.Checked := true else FtpPassive.Checked := false ; FtpPassword.Text := ReadString (section, 'FtpPassword_Text', FtpPassword.Text) ; FtpPath.Text := ReadString (section, 'FtpPath_Text', FtpPath.Text) ; FtpPort.Text := ReadString (section, 'FtpPort_Text', FtpPort.Text) ; FtpPortSsl.Text := ReadString (section, 'FtpPortSsl_Text', FtpPortSsl.Text) ; FtpServerType.ItemIndex := ReadInteger (section, 'FtpServerType_ItemIndex', FtpServerType.ItemIndex) ; FtpSrcFile.Text := ReadString (section, 'FtpSrcFile_Text', FtpSrcFile.Text) ; if ReadString (section, 'FtpSubdirs_Checked', 'False') = 'True' then FtpSubdirs.Checked := true else FtpSubdirs.Checked := false ; FtpUsername.Text := ReadString (section, 'FtpUsername_Text', FtpUsername.Text) ; HttpBandWidth.Text := ReadString (section, 'HttpBandWidth_Text', HttpBandWidth.Text) ; HttpFileRepl.ItemIndex := ReadInteger (section, 'HttpFileRepl_ItemIndex', HttpFileRepl.ItemIndex) ; HttpSrcDir.Lines.CommaText := ReadString (section, 'HttpSrcDir_Lines', HttpSrcDir.Lines.CommaText) ; HttpSrcFile.Text := ReadString (section, 'HttpSrcFile_Text', HttpSrcFile.Text) ; HttpTarDir.Text := ReadString (section, 'HttpTarDir_Text', HttpTarDir.Text) ; NetLogon.Text := ReadString (section, 'NetLogon_Text', NetLogon.Text) ; NetPassword.Text := ReadString (section, 'NetPassword_Text', NetPassword.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 ; if ReadString (section, 'ShowDiagsHigh_Checked', 'False') = 'True' then ShowDiagsHigh.Checked := true else ShowDiagsHigh.Checked := false ; if ReadString (section, 'ShowDiagsLow_Checked', 'False') = 'True' then ShowDiagsLow.Checked := true else ShowDiagsLow.Checked := false ; if ReadString (section, 'ShowDiagsSSL_Checked', 'False') = 'True' then ShowDiagsSSL.Checked := true else ShowDiagsSSL.Checked := false ; if ReadString (section, 'ShowDiagsUtf8_Checked', 'False') = 'True' then ShowDiagsUtf8.Checked := true else ShowDiagsUtf8.Checked := false ; if ReadString (section, 'ShowXProgesss_Checked', 'False') = 'True' then ShowXProgesss.Checked := true else ShowXProgesss.Checked := false ; SslSecurity.ItemIndex := ReadInteger (section, 'SslSecurity_ItemIndex', SslSecurity.ItemIndex) ; VerifyCertMode.ItemIndex := ReadInteger (section, 'VerifyCertMode_ItemIndex', VerifyCertMode.ItemIndex) ; XferSockFamily.ItemIndex := ReadInteger (section, 'XferSockFamily_ItemIndex', XferSockFamily.ItemIndex) ; if ReadString (section, 'FtpFixPassiveLanIP_Checked', 'False') = 'True' then FtpFixPassiveLanIP.Checked := true else FtpFixPassiveLanIP.Checked := false ; FtpHost.Items.CommaText := ReadString (section, 'FtpHost_Items', FtpHost.Items.CommaText) ; if ReadString (section, 'HttpParsePage_Checked', 'False') = 'True' then HttpParsePage.Checked := true else HttpParsePage.Checked := false ; HttpParseLevels.Text := ReadString (section, 'HttpParseLevels_Text', HttpParseLevels.Text) ; CleanupDays.Text := ReadString (section, 'CleanupDays_Text', CleanupDays.Text) ; CleanupDateFrom.Date := ReadFloat (section, 'CleanupDateFrom_Date', CleanupDateFrom.Date) ; CleanupDateTo.Date := ReadFloat (section, 'CleanupDateTo_Date', CleanupDateTo.Date) ; CleanupFileMask.Text := ReadString (section, 'CleanupFileMask_Text', CleanupFileMask.Text) ; if ReadString (section, 'CleanupSubDirs_Checked', 'False') = 'True' then CleanupSubDirs.Checked := true else CleanupSubDirs.Checked := false ; CleanupPath.Text := ReadString (section, 'CleanupPath_Text', CleanupPath.Text) ; Copy1FileTar.Text := ReadString (section, 'Copy1FileTar_Text', Copy1FileTar.Text) ; Copy1Replc.ItemIndex := ReadInteger (section, 'Copy1Replc_ItemIndex', Copy1Replc.ItemIndex) ; Copy1FileSrc.Text := ReadString (section, 'Copy1FileSrc_Text', Copy1FileSrc.Text) ; if ReadString (section, 'CopyUnzip_Checked', 'False') = 'True' then CopyUnzip.Checked := true else CopyUnzip.Checked := false ; if ReadString (section, 'CopyZip_Checked', 'False') = 'True' then CopyZip.Checked := true else CopyZip.Checked := false ; if ReadString (section, 'Ftp1Unzip_Checked', 'False') = 'True' then Ftp1Unzip.Checked := true else Ftp1Unzip.Checked := false ; if ReadString (section, 'Ftp1Zip_Checked', 'False') = 'True' then Ftp1Zip.Checked := true else Ftp1Zip.Checked := false ; if ReadString (section, 'FtpMultiUnzip_Checked', 'False') = 'True' then FtpMultiUnzip.Checked := true else FtpMultiUnzip.Checked := false ; if ReadString (section, 'FtpMultiZip_Checked', 'False') = 'True' then FtpMultiZip.Checked := true else FtpMultiZip.Checked := false ; if ReadString (section, 'HttpUnzip_Checked', 'False') = 'True' then HttpUnzip.Checked := true else HttpUnzip.Checked := false ; UnzipDir.Text := ReadString (section, 'UnzipDir_Text', UnzipDir.Text) ; if ReadString (section, 'UnzipDownDel_Checked', 'False') = 'True' then UnzipDownDel.Checked := true else UnzipDownDel.Checked := false ; UnzipZipPath.ItemIndex := ReadInteger (section, 'UnzipZipPath_ItemIndex', UnzipZipPath.ItemIndex) ; ZippingExtFmt.ItemIndex := ReadInteger (section, 'ZippingExtFmt_ItemIndex', ZippingExtFmt.ItemIndex) ; ZippingType.ItemIndex := ReadInteger (section, 'ZippingType_ItemIndex', ZippingType.ItemIndex) ; if ReadString (section, 'NoSSL_Checked', 'False') = 'True' then NoSSL.Checked := true else NoSSL.Checked := false ;