object frmRange: TfrmRange Left = 308 Top = 200 HelpContext = 18 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Range' ClientHeight = 114 ClientWidth = 317 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter ShowHint = True OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 300 Height = 69 Shape = bsFrame IsControl = True end object lblFrom: TLabel Left = 26 Top = 20 Width = 23 Height = 13 Caption = '&From' end object lblUntil: TLabel Left = 26 Top = 48 Width = 21 Height = 13 Caption = '&Until' end object OKBtn: TBitBtn Left = 64 Top = 84 Width = 77 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 148 Top = 84 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 232 Top = 84 Width = 77 Height = 25 Caption = '&Help' TabOrder = 4 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object txtFrom: TEdit Left = 64 Top = 16 Width = 235 Height = 21 Hint = 'Beginning of range' TabOrder = 0 end object txtUntil: TEdit Left = 64 Top = 44 Width = 235 Height = 21 Hint = 'End of range' TabOrder = 1 end end