object RegCodeForm: TRegCodeForm Left = 252 Top = 158 ActiveControl = edtUserName BorderIcons = [biSystemMenu, biMaximize, biHelp] BorderStyle = bsDialog Caption = 'Test...' ClientHeight = 123 ClientWidth = 272 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object imgBackGround: TImage Left = 0 Top = 0 Width = 272 Height = 123 Align = alClient Picture.Data = {} Stretch = True end object lblUserName: TLabel Left = 15 Top = 19 Width = 37 Height = 13 Caption = 'Name:' FocusControl = edtUserName Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object lblRegNumber: TLabel Left = 15 Top = 57 Width = 120 Height = 13 Caption = 'Registration Number:' FocusControl = edtRegNumber Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object btnOK: TButton Left = 37 Top = 93 Width = 75 Height = 25 Caption = 'Ok' Default = True Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 end object btnCancel: TButton Left = 161 Top = 93 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 1 end object edtUserName: TEdit Left = 63 Top = 15 Width = 197 Height = 21 TabOrder = 2 Text = 'John Smidth' end object edtRegNumber: TEdit Left = 138 Top = 53 Width = 124 Height = 21 TabOrder = 3 Text = '938752903615' end end