object CodeEntryForm: TCodeEntryForm Left = 275 Top = 171 BorderStyle = bsDialog Caption = 'Registration preliminaries' ClientHeight = 92 ClientWidth = 454 Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poScreenCenter Scaled = False PixelsPerInch = 125 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 454 Height = 92 Align = alClient BevelOuter = bvLowered TabOrder = 0 object Edit1: TEdit Left = 216 Top = 32 Width = 121 Height = 24 TabOrder = 0 end object Panel2: TPanel Left = 8 Top = 24 Width = 185 Height = 41 Caption = 'Please enter your code:' TabOrder = 1 end object Button1: TButton Left = 360 Top = 32 Width = 75 Height = 25 Caption = 'Done' TabOrder = 2 OnClick = Button1Click end end end