unit DConfig; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TDlgConfig = class(TForm) chSavePosSize: TCheckBox; chStartRecToTray: TCheckBox; chNoShowRecFrame: TCheckBox; Label1: TLabel; Label2: TLabel; cbRecQuality: TComboBox; cbFrameRate: TComboBox; btnOk: TButton; btnCancel: TButton; chReTryRec: TCheckBox; chAutoDelMergeAv: TCheckBox; procedure chReTryRecClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var DlgConfig: TDlgConfig; implementation {$R *.dfm} procedure TDlgConfig.chReTryRecClick(Sender: TObject); begin chAutoDelMergeAv.Enabled := chReTryRec.Checked; end; end.