Try using mbSelfStack
MultiBar
style for your TBarSeries
. Here it is an example:
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.View3D:=false;
with Chart1.AddSeries(TBarSeries) as TBarSeries do
begin
Marks.Visible:=false;
MultiBar:=mbSelfStack;
FillSampleValues;
end;
end;
With this style, the values in a single TBarSeries will be stacked one above the other