关于统计图(50分)

代码如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Series1: TPieSeries;
Series2: TBarSeries;
begin
Series1 := TPieSeries.Create(self);
Series1.Add(100,'aa',clTeeColor);
Series1.Add(50,'bb',clTeeColor);
Series1.ParentChart := Chart1;
end;
现在的问题是，使用这样的方法增加的饼图的数据时 bb 占了三分之一，即总数是
100+50 ，而我希望的结果是 bb 占 aa 的 50% 的效果。
这该如何做？急,急,急,急!
谢谢！

procedure TForm1.Button1Click(Sender: TObject);
var
Series1: TPieSeries;
Series2: TBarSeries;
begin
Series1 := TPieSeries.Create(self);
Series1.Add(100,'aa',clTeeColor);
Series1.Add(50,'bb',clTeeColor);
series1.PieValues.Value[0]:=series1.PieValues.Value[0]-series1.PieValues.Value[1];
Series1.ParentChart := Chart1;

end;

接受答案了.