object BusinessProcessorServerMainForm: TBusinessProcessorServerMainForm Left = 100 Top = 111 BorderStyle = bsDialog Caption = 'Business Processor Server' ClientHeight = 170 ClientWidth = 380 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 7 Top = 7 Width = 39 Height = 13 Caption = 'Checks:' end object GroupBox1: TGroupBox Left = 7 Top = 24 Width = 365 Height = 73 Anchors = [akLeft, akTop, akRight] Caption = 'Customers' TabOrder = 0 object cbCheckCustomerID: TCheckBox Left = 8 Top = 15 Width = 321 Height = 17 Caption = 'New records: CustomerID needs at least 5 characters' TabOrder = 0 OnClick = cbCheckCustomerIDClick end object cbDeclineDeleteCustomers: TCheckBox Left = 8 Top = 49 Width = 216 Height = 17 Caption = 'Restrict deleting records' TabOrder = 1 OnClick = cbDeclineDeleteCustomersClick end object cbCompany: TCheckBox Left = 8 Top = 32 Width = 228 Height = 17 Caption = 'New records: Company name for should be ' TabOrder = 2 OnClick = cbCompanyClick end object eCompany: TEdit Left = 245 Top = 30 Width = 110 Height = 21 TabOrder = 3 Text = 'Company' OnChange = eCompanyChange end end object GroupBox2: TGroupBox Left = 7 Top = 100 Width = 365 Height = 60 Anchors = [akLeft, akTop, akRight] Caption = 'Orders' TabOrder = 1 object cbFreight: TCheckBox Left = 8 Top = 15 Width = 218 Height = 17 Caption = 'Freight should be greater than' TabOrder = 0 OnClick = cbFreightClick end object cbDeclineDeleteOrders: TCheckBox Left = 8 Top = 33 Width = 216 Height = 17 Caption = 'Restrict deleting of orders' TabOrder = 1 OnClick = cbDeclineDeleteOrdersClick end object eFreight: TSpinEdit Left = 245 Top = 12 Width = 110 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 2 Value = 0 OnChange = eFreightChange end end end