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