Source position: barchart.pp line 151
procedure FillBarChart(
BC: TBarChart;
DS: TDataset;
const LabelField: ;
const ValueField: ;
AColor: TColor
);