object ConnectionPoolingMainForm: TConnectionPoolingMainForm Left = 392 Top = 182 AutoScroll = False BorderWidth = 5 Caption = 'Connection Pooling' ClientHeight = 323 ClientWidth = 365 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 3 Top = 0 Width = 102 Height = 13 Caption = 'Selected Connection:' end object lPoolTimeoutSeconds: TLabel Left = 3 Top = 48 Width = 113 Height = 13 Caption = 'PoolTimeoutSeconds: 5' end object Acquire1Button: TButton Left = 208 Top = 0 Width = 75 Height = 25 Caption = '&Acquire #1' TabOrder = 0 OnClick = Acquire1ButtonClick end object cbConnections: TComboBox Left = 3 Top = 18 Width = 193 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 end object Release1Button: TButton Left = 288 Top = 0 Width = 75 Height = 25 Caption = '&Release #1' TabOrder = 2 OnClick = Release1ButtonClick end object Memo: TMemo Left = 0 Top = 97 Width = 365 Height = 226 Anchors = [akLeft, akTop, akRight, akBottom] ScrollBars = ssVertical TabOrder = 3 end object Acquire2Button: TButton Left = 208 Top = 32 Width = 75 Height = 25 Caption = '&Acquire #2' TabOrder = 4 OnClick = Acquire2ButtonClick end object Release2Button: TButton Left = 288 Top = 32 Width = 75 Height = 25 Caption = '&Release #2' TabOrder = 5 OnClick = Release2ButtonClick end object Acquire3Button: TButton Left = 208 Top = 64 Width = 75 Height = 25 Caption = '&Acquire #3' TabOrder = 6 OnClick = Acquire3ButtonClick end object Release3Button: TButton Left = 288 Top = 64 Width = 75 Height = 25 Caption = '&Release #3' TabOrder = 7 OnClick = Release3ButtonClick end object TrackBar: TTrackBar Left = -4 Top = 64 Width = 208 Height = 30 Max = 20 Min = 1 Orientation = trHorizontal ParentShowHint = False PageSize = 1 Frequency = 1 Position = 5 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 8 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBarChange end object DAConnectionManager: TDAConnectionManager PoolTimeoutSeconds = 5 OnConnectionTimedOut = DAConnectionManagerConnectionTimedOut OnConnectionCreated = DAConnectionManagerConnectionCreated Connections = < item Name = 'MSSQL' ConnectionString = 'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' + 'egrated Security=SSPI;' Description = 'Microsoft SQL Server Northwind Connection' Default = True Tag = 0 end item Name = 'IBEmployees' ConnectionString = 'IBX?Server=;UserID=sysdba;Password=masterkey;Database=C:\Program' + ' Files\Borland\InterBase\examples\Database\Employee.gdb' Description = 'Borland Interbase Employee Connection' Default = False Tag = 0 end> DriverManager = DADriverManager PoolingEnabled = True Left = 48 Top = 112 end object DADriverManager: TDADriverManager DriverDirectory = '%MODULE%\' TraceActive = False TraceFlags = [] Left = 16 Top = 112 end object DAADODriver: TDAADODriver Left = 16 Top = 144 end end