object DBCreateForm: TDBCreateForm Left = 1002 Height = 96 Top = 415 Width = 320 Caption = 'Please Wait' ClientHeight = 96 ClientWidth = 320 FormStyle = fsSystemStayOnTop OnShow = FormShow Position = poScreenCenter LCLVersion = '1.8.1.0' object Panel1: TPanel Left = 0 Height = 96 Top = 0 Width = 320 Align = alClient BevelInner = bvLowered Caption = 'Creating Database' ClientHeight = 96 ClientWidth = 320 TabOrder = 0 object ProgressBar1: TProgressBar Left = 40 Height = 20 Top = 64 Width = 232 Style = pbstMarquee TabOrder = 0 end end object IBXScript1: TIBXScript Database = Form1.IBDatabase1 IgnoreGrants = False Transaction = Form1.IBTransaction1 ShowAffectedRows = False ShowPerformanceStats = False left = 264 top = 8 end end