object ShutdownDatabaseDlg: TShutdownDatabaseDlg Left = 2067 Height = 113 Top = 326 Width = 338 BorderStyle = bsNone Caption = 'ShutdownDatabaseDlg' ClientHeight = 113 ClientWidth = 338 OnShow = FormShow Position = poScreenCenter LCLVersion = '1.8.3.0' object StatusMsg: TLabel Left = 24 Height = 14 Top = 16 Width = 304 Alignment = taCenter AutoSize = False Caption = 'StatusMsg' ParentColor = False end object ProgressBar1: TProgressBar Left = 58 Height = 20 Top = 41 Width = 237 Style = pbstMarquee TabOrder = 0 end object CloseBtn: TButton Left = 139 Height = 28 Top = 72 Width = 75 Cancel = True Caption = 'Cancel' ModalResult = 11 OnClick = CloseBtnClick TabOrder = 1 end object Bevel1: TBevel Left = 0 Height = 113 Top = 0 Width = 338 Align = alClient end object IBConfigService: TIBXConfigService ServicesConnection = MainForm.IBXServicesConnection1 TraceFlags = [] left = 258 top = 63 end end