object Form1: TForm1
  Left = 329
  Height = 300
  Top = 190
  Width = 547
  Caption = 'Form1'
  ClientHeight = 300
  ClientWidth = 547
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object Chart1: TChart
    Left = 0
    Height = 274
    Top = 26
    Width = 347
    AxisList = <    
      item
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.LabelBrush.Style = bsClear
      end    
      item
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelBrush.Style = bsClear
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Margins.Left = 8
    Margins.Top = 8
    Margins.Right = 8
    Margins.Bottom = 0
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Align = alClient
    object Chart1LineSeries1: TLineSeries
      ZPosition = 1
      LinePen.Color = clTeal
      LinePen.Width = 3
      Pointer.HorizSize = 6
      Pointer.Style = psCircle
      Pointer.VertSize = 6
      Pointer.Visible = True
      ShowPoints = True
      Source = DbChartSource1
    end
    object Chart1BarSeries1: TBarSeries
      BarBrush.Color = clRed
      Stacked = False
    end
  end
  object DBGrid1: TDBGrid
    Left = 347
    Height = 274
    Top = 26
    Width = 200
    Align = alRight
    AutoFillColumns = True
    Color = clWindow
    Columns = <>
    DataSource = Datasource1
    Scrollbars = ssAutoBoth
    TabOrder = 1
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 26
    Top = 0
    Width = 547
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 2
    object tbCopy: TToolButton
      Left = 1
      Top = 2
      Caption = 'Copy db to list'
      OnClick = tbCopyClick
    end
  end
  object MemDataset1: TMemDataset
    Active = True
    FieldDefs = <    
      item
        Name = 'X'
        DataType = ftFloat
      end    
      item
        Name = 'Y'
        DataType = ftFloat
      end>
    Left = 271
    Top = 60
  end
  object Datasource1: TDataSource
    DataSet = MemDataset1
    Left = 271
    Top = 108
  end
  object DbChartSource1: TDbChartSource
    DataSource = Datasource1
    FieldX = 'X'
    FieldY = 'Y'
    Left = 271
    Top = 156
  end
end