object IBXCreateDatabaseFromSQLDlg: TIBXCreateDatabaseFromSQLDlg Left = 2028 Height = 111 Top = 371 Width = 255 BorderStyle = bsNone Caption = 'IBXCreateDatabaseFromSQLDlg' ClientHeight = 111 ClientWidth = 255 OnShow = FormShow Position = poMainFormCenter LCLVersion = '1.8.1.0' object Bevel1: TBevel Left = 0 Height = 111 Top = 0 Width = 255 Align = alClient end object Label1: TLabel Left = 55 Height = 13 Top = 24 Width = 143 Caption = 'Creating New Database' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False end object ProgressBar: TProgressBar Left = 21 Height = 20 Top = 56 Width = 211 Smooth = True Step = 1 TabOrder = 0 end object IBXScript: TIBXScript AutoDDL = False Echo = False IgnoreGrants = False ShowAffectedRows = False ShowPerformanceStats = False OnProgressEvent = IBXScriptProgressEvent OnCreateDatabase = IBXScriptCreateDatabase left = 211 top = 11 end end