object Form1: TForm1
  Left = 199
  Top = 106
  Width = 528
  Height = 436
  Caption = ' Example of Fast Copy Record using Scatter/Gather'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object DBNavigator1: TDBNavigator
    Left = 3
    Top = 6
    Width = 241
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object pbCopy: TButton
    Left = 18
    Top = 369
    Width = 403
    Height = 37
    Caption = 'Copy Current Record in Clients.dbf to Clients2.dbf'
    TabOrder = 1
    OnClick = pbCopyClick
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 39
    Width = 499
    Height = 163
    Caption = ' \Delphi\Demos\Data\Clients.dbf '
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 7
      Top = 34
      Width = 468
      Height = 114
      Color = clWhite
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnEnter = DBGrid1Enter
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 207
    Width = 499
    Height = 148
    Caption = ' \Delphi\Demos\Data\Clients2.dbf '
    TabOrder = 3
    object DBGrid3: TDBGrid
      Left = 10
      Top = 27
      Width = 463
      Height = 114
      Color = clWhite
      DataSource = DataSource2
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnEnter = DBGrid1Enter
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 433
    Top = 2
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CLIENTS.DBF'
    Left = 470
    Top = 2
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 441
    Top = 372
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CLIENTS2.DBF'
    Left = 477
    Top = 372
  end
end