Delphi-如何在运行时创建堆叠的条形图系列？

我想在运行时使用Delphi中的Teechart系列创建两个相互堆叠的系列。 基本上，我希望有2个系列，每个系列有2个条目或数据点，相应的数据点，I.o.w系列1数据点1和系列2数据点1，应该相互堆叠，形成一个单独的数据点 酒吧

我试图寻找要更改的过程或属性，但没有结果。

最简单的示例：

var
  S1, S2: TBarSeries;
begin
  S1 := TBarSeries(Chart1.AddSeries(TBarSeries));
  S2 := TBarSeries(Chart1.AddSeries(TBarSeries));
  S1.MultiBar := mbStacked;
  S2.MultiBar := mbStacked;
  //S1.StackGroup := 0;
  //S2.StackGroup := 0;  //same group if few groups will be used
  S1.Add(3);
  S1.Add(1);
  S2.Add(2);
  S2.Add(4);