object InputDlg: TInputDlg Left = 514 Height = 99 Top = 236 Width = 232 BorderStyle = bsNone ClientHeight = 99 ClientWidth = 232 Color = clBtnFace DesignTimePPI = 144 Font.Color = clWindowText Font.Height = -20 Font.Name = 'MS Sans Serif' FormStyle = fsStayOnTop OnClose = FormClose OnCreate = FormCreate OnPaint = FormPaint OnShow = FormShow LCLVersion = '2.2.6.0' Scaled = False object ButtonOk: TButtonA Left = 66 Height = 25 Top = 67 Width = 100 Down = False Permanent = False OnClick = ButtonOkClick end object EditInput: TEdit Left = 16 Height = 27 Top = 40 Width = 200 BorderStyle = bsNone Color = clBlack Font.Color = 4176863 Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] OnKeyPress = EInputKeyPress ParentFont = False TabOrder = 0 end end