object Form1: TForm1 Left = 353 Height = 240 Top = 214 Width = 680 ClientHeight = 240 ClientWidth = 680 LCLVersion = '2.0.0.4' object lblCopyFrom: TLabel Left = 20 Height = 19 Top = 20 Width = 118 Caption = 'Copy from file:' ParentColor = False end object edtCopyFrom: TFileNameEdit Left = 20 Height = 31 Top = 48 Width = 515 FileName = 'edtCopyFrom' OnAcceptFileName = edtCopyFromAcceptFileName FilterIndex = 0 HideDirectories = False ButtonWidth = 23 NumGlyphs = 1 MaxLength = 0 TabOrder = 0 Text = 'edtCopyFrom' end object lblCopyToFile: TLabel Left = 20 Height = 19 Top = 96 Width = 164 Caption = 'File will be copied to:' ParentColor = False end object cbDate: TCheckBox Left = 20 Height = 21 Top = 128 Width = 270 Caption = 'Copy original file''s date stamp.' TabOrder = 1 end object btnCopy: TButton Left = 20 Height = 25 Top = 176 Width = 75 Caption = 'Copy file' OnClick = btnCopyClick TabOrder = 2 end end