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