如何将数据库中提取的数据以饼状图的形式显示出来呀?(50分)

在一窗体上有一按钮,DBGRID等控件,按此按钮执行如下语句:
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select shebname,count(*) as ss from gdzcinput where 1=1 group by shebname');
adoquery1.Open;
dbgrideh1.Columns.Items[0].FieldName :='shebname';
dbgrideh1.Columns.Items[1].FieldName:='ss';
dbgrideh1.Columns.items[1].Title.caption:='设备数量';
dbgrideh1.Columns.items[0].Title.caption:='设备名称';
在dbgrid控件上显示出了结果,设备名称约有6,7个
有另一窗体,上放置了CHART控件,添加了PIE,现想实现如下效果:
在此窗体上以饼状图的形式显示上述查询结果中各设备所占数量,
该如何实现呀?
我不知道该如何将查询出的数据赋值给饼状图.
delphi的demo中好像都是随机的值

procedure TForm1.Button2Click(Sender:TObject);
var
mybar:TBarSeries; //柱形图
begin
DBChart1.SeriesList.Clear;
mybar:=TBarSeries.Create(self);
mybar.ParentChart:=DBChart1;
mybar.DataSource:=ADOTable1;//指定数据源，
mybar.Marks.Style:=smsValue;
mybar.XValues.ValueSource:='设备名称';
mybar.yValues.ValueSource:='设备数量';

end;

谢谢,有所领悟了