object ModuleStatusForm: TModuleStatusForm Left = 232 Top = 109 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'ModuleStatusForm' ClientHeight = 288 ClientWidth = 474 Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Frame: TGroupBox Left = 10 Top = 15 Width = 454 Height = 223 Caption = 'REGISTRATION STATUS' Font.Color = clMaroon Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object LabelModule: TLabel Left = 14 Top = 30 Width = 45 Height = 16 Caption = 'Module' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelStatus: TLabel Left = 255 Top = 30 Width = 37 Height = 16 Caption = 'Status' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelDays: TLabel Left = 341 Top = 30 Width = 32 Height = 16 Caption = 'Days' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelTries: TLabel Left = 410 Top = 30 Width = 31 Height = 16 Caption = 'Tries' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelRemaining: TLabel Left = 358 Top = 15 Width = 65 Height = 16 Caption = 'Remaining' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ListBox: TListBox Left = 10 Top = 49 Width = 434 Height = 164 TabStop = False Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False Style = lbOwnerDrawFixed TabOrder = 0 OnDrawItem = ListBoxDrawItem end end object CloseButton: TButton Left = 385 Top = 249 Width = 79 Height = 30 Cancel = True Caption = '&Close' Default = True ModalResult = 2 TabOrder = 1 end object PoliciesButton: TButton Left = 314 Top = 249 Width = 68 Height = 30 HelpContext = 10101 Caption = '&Policies' TabOrder = 3 OnClick = PoliciesButtonClick end object RegisterButton: TButton Left = 242 Top = 249 Width = 68 Height = 30 HelpContext = 10705 Caption = '&Register' TabOrder = 2 OnClick = RegisterButtonClick end end