object JoinForm: TJoinForm Left = 123 Top = 135 BorderStyle = bsDialog Caption = 'Join' ClientHeight = 312 ClientWidth = 504 Color = clBlue Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 24 Top = 124 Width = 85 Height = 16 Caption = 'Files to join:' Color = clBlue Font.Color = clAqua Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label2: TLabel Left = 24 Top = 164 Width = 101 Height = 16 Caption = 'File to restore:' Font.Color = clAqua Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 0 Top = 0 Width = 504 Height = 108 Align = alTop Alignment = taCenter Caption = 'File Joiner' Color = clBlue Font.Color = clAqua Font.Height = -96 Font.Name = 'Times New Roman' Font.Style = [fsBold, fsItalic] ParentColor = False ParentFont = False end object FileToJoinEdit: TEdit Left = 136 Top = 123 Width = 353 Height = 25 AutoSize = False TabOrder = 0 Text = 'unknown' OnMouseDown = FileToJoinEditMouseDown end object FileToRestoreEdit: TEdit Left = 136 Top = 163 Width = 353 Height = 25 AutoSize = False TabOrder = 1 Text = 'unknown' OnMouseDown = FileToRestoreEditMouseDown end object StartButton: TButton Left = 24 Top = 216 Width = 217 Height = 57 Caption = 'Start Joining' Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = StartButtonClick end object HideButton: TButton Left = 272 Top = 216 Width = 217 Height = 57 Caption = 'Hide' Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = HideButtonClick end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = '001 split files|*.001' end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 480 end end