unit1.dfm

this method files is bla bla bla bla

object ADOThreadedForm: TADOThreadedForm
  Left = 0
  Top = 0
  Caption = 'ADO Threading'
  ClientHeight = 308
  ClientWidth = 322
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblCustomer1: TLabel
    Left = 8
    Top = 61
    Width = 55
    Height = 13
    Caption = 'Customer 1'
  end
  object lblCustomer2: TLabel
    Left = 111
    Top = 61
    Width = 55
    Height = 13
    Caption = 'Customer 2'
  end
  object lblCustomer3: TLabel
    Left = 216
    Top = 61
    Width = 55
    Height = 13
    Caption = 'Customer 3'
  end
  object lbCustomer1: TListBox
    Left = 9
    Top = 104
    Width = 97
    Height = 193
    ItemHeight = 13
    TabOrder = 0
  end
  object lbCustomer3: TListBox
    Left = 216
    Top = 104
    Width = 98
    Height = 193
    ItemHeight = 13
    TabOrder = 1
  end
  object lbCustomer2: TListBox
    Left = 112
    Top = 104
    Width = 98
    Height = 193
    ItemHeight = 13
    TabOrder = 2
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 97
    Height = 41
    Caption = 'List products (3 threads)'
    TabOrder = 3
    WordWrap = True
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 111
    Top = 8
    Width = 98
    Height = 41
    Caption = 'Stop thread 2'
    TabOrder = 4
    OnClick = Button2Click
  end
  object ComboBox1: TComboBox
    Left = 9
    Top = 77
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 5
  end
  object ComboBox2: TComboBox
    Left = 112
    Top = 77
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 6
  end
  object ComboBox3: TComboBox
    Left = 217
    Top = 77
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 7
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Co' +
      'mmon Files\Borland Shared\Data\dbdemos.mdb;Persist Security Info' +
      '=False'
    CursorLocation = clUseServer
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 280
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT CustNo, Company FROM CUSTOMER ')
    Left = 248
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 216
    Top = 16
  end
end