Negative stacked bars rendered wrongly when in correlative StackGroups.
The drawing order may be revised for this scenario:

uses Series, TeCanvas, Math;

procedure TForm1.FormCreate(Sender: TObject);
var i, j, sCount, nCount, tmp: Integer;
begin
  Chart1.Legend.Visible:=False;

  sCount:=3;
  nCount:=Round(Power(2, sCount));
  for i:=0 to sCount-1 do
    with Chart1.AddSeries(TBarSeries) as TBarSeries do
    begin
      for j:=0 to nCount-1 do
      begin
        tmp:=Round(nCount / Power(2, i));

        if j mod tmp < tmp div 2 then
           Add(10)
        else
           Add(-10);
      end;

      Marks.Visible:=False;
      MultiBar:=mbStacked;

      StackGroup:=(i+1) div 2;
    end;
end;