object cde_LinkCreatorFrm: Tcde_LinkCreatorFrm Left = 484 Height = 351 Top = 364 Width = 284 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Create link' ClientHeight = 351 ClientWidth = 284 Font.CharSet = RUSSIAN_CHARSET Font.Height = -15 Font.Name = 'Times New Roman' Font.Pitch = fpVariable Font.Quality = fqDraft Position = poOwnerFormCenter LCLVersion = '1.2.6.0' object DrivesBox: TListBox Left = 5 Height = 207 Top = 44 Width = 274 Align = alClient BorderSpacing.Around = 5 ItemHeight = 0 TabOrder = 0 end object ButtonsPanel: TPanel Left = 0 Height = 95 Top = 256 Width = 284 Align = alBottom BevelOuter = bvNone ClientHeight = 95 ClientWidth = 284 TabOrder = 1 object AddDriveBtn: TButton Left = 8 Height = 25 Top = 8 Width = 120 Caption = '&Add Drive' OnClick = AddDriveBtnClick TabOrder = 0 end object RemoveDriveBtn: TButton Left = 152 Height = 25 Top = 8 Width = 120 Caption = '&Remove Drive' OnClick = RemoveDriveBtnClick TabOrder = 1 end object Sep1: TBevel Left = 8 Height = 10 Top = 40 Width = 264 Shape = bsTopLine end object CreateLinkBtn: TButton Left = 8 Height = 25 Top = 56 Width = 120 Caption = '&Create Link' OnClick = CreateLinkBtnClick TabOrder = 2 end object CancelBtn: TButton Left = 152 Height = 25 Top = 56 Width = 120 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 3 end end object DrivesBoxLbl: TLabel Left = 5 Height = 34 Top = 5 Width = 274 Align = alTop BorderSpacing.Around = 5 Caption = '&Add to list Drives that you want to extract from this shortcut:' ParentColor = False WordWrap = True end end