object AskMediumIdForm: TAskMediumIdForm Left = 347 Top = 201 Width = 340 Height = 161 Caption = 'Choose destination directory' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object ProjectNameLab: TLabel Left = 8 Top = 8 Width = 313 Height = 13 Alignment = taCenter AutoSize = False Caption = 'ProjectNameLab' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 3 Top = 31 Width = 326 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Please enter then directory where you would like to install then' + ' data.' end object PathEd: TEdit Left = 8 Top = 64 Width = 313 Height = 21 TabOrder = 0 Text = 'c:\EpaData' OnChange = PathEdChange end object OkBtn: TBitBtn Left = 247 Top = 96 Width = 75 Height = 25 TabOrder = 1 Kind = bkOK end end