TChart的问题(100分)

在Button1Click事件中
var
aSerise : TBarSeries;
i : Integer;
s : string;
begin
dmNew.cdsTemp.First;
while not(dmdbFeeBarNew.cdsFeeBarDeptTemp.Eof)do
begin

aSerise := TBarSeries.Create(Chart1);
aSerise.ParentChart := Chart1;
aSerise.Clear;
aSerise.AddBar(2342, dmNew.cdsTemp.FieldByName('WorkshopName').AsString, $122023);
aSerise.AddBar(6564, dmNew.cdsTemp.FieldByName('WorkshopName').AsString, $780994);
aSerise.AddBar(3454, dmNew.cdsTemp.FieldByName('WorkshopName').AsString, $749954);
aSerise.AddBar(5644, dmNew.cdsTemp.FieldByName('WorkshopName').AsString, $473834);
s := dmNew.cdsTemp.FieldByName('WorkshopName').AsString;
aSerise.Marks.Arrow.Visible := False;
aSerise.Marks.Callout.Arrow.Visible := False;
aSerise.Marks.Style := smsPercent;
aSerise.Marks.Visible := True;
aSerise.ShowInLegend := False;
aSerise.BarWidthPercent := 50;
aSerise.MultiBar := mbSelfStack;
dmNew.cdsTemp.Next;
end;
end;

显示出来后。。只有四个BarSerise的lable有显示，之后的就没有显示出来了。。
能解决吗？