object Form1: TForm1 Left = 363 Height = 339 Top = 171 Width = 487 Caption = 'Database Information' ClientHeight = 339 ClientWidth = 487 OnShow = FormShow LCLVersion = '1.6.4.0' object Memo1: TMemo Left = 12 Height = 302 Top = 18 Width = 461 Anchors = [akTop, akLeft, akRight, akBottom] Lines.Strings = ( 'Memo1' ) ReadOnly = True ScrollBars = ssAutoVertical TabOrder = 0 end object IBDatabase1: TIBDatabase Connected = False AfterConnect = IBDatabase1AfterConnect CreateIfNotExists = False AllowStreamedConnected = False DatabaseName = 'localhost:employee' Params.Strings = ( 'lc_ctype=UTF8' 'user_name=SYSDBA' ) IdleTimer = 0 TraceFlags = [] UseDefaultSystemCodePage = False left = 280 top = 56 end object IBDatabaseInfo1: TIBDatabaseInfo Database = IBDatabase1 left = 328 top = 56 end end