Листинг 6

With ChartSpace1 do
   Begin
     Clear;
     Refresh;
   {!!}
     DataSource := Sheet.Parent AS MSDATASRC_TLB.DataSource;
   {!!}
     Chart := Charts.Add(0);
     Chart.Type_ := chChartTypeScatterSmoothLineMarkers;
     Chart.SetData(chDimXValues, 0, ‘A1:A10’);
     Chart.SetData(chDimYValues, 0, ‘B1:B10’);
   End;