object frmAskCombo: TfrmAskCombo Left = 260 Top = 436 Hint = '|Question' HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = edUserInput BorderIcons = [biSystemMenu] AutoScroll = False Caption = 'Input' ClientHeight = 81 ClientWidth = 321 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} Position = poScreenCenter Scaled = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 201 Height = 65 end object lbledUserInput: TEnhLabel Left = 16 Top = 19 Width = 45 Height = 13 Caption = '&Question:' FocusControl = edUserInput WordWrap = True end object BBOk: TBitBtn Left = 228 Top = 20 Width = 81 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = BBOkClick NumGlyphs = 2 end object BBCancel: TBitBtn Left = 228 Top = 49 Width = 81 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 NumGlyphs = 2 end object edUserInput: TLblComboBox Left = 16 Top = 36 Width = 185 Height = 21 DropDownCount = 10 ItemHeight = 13 TabOrder = 2 OnKeyPress = edUserInputKeyPress AddNewToStart = True AddNewToList = True CaseSensitive = True DestroyObjects = False LimitToList = False OverwriteMode = False ReadOnly = False UndoWhenEsc = False LabelPos = lpTop LabelMargin = 4 LabelComponent = lbledUserInput LabelRelLeft = 0 LabelRelTop = -17 end end