tchar的显示问题
如图：
点击“增加”按钮，Tchar的X轴 会增加左侧表格（DBGridEh）里的科室。
传入Tchar的参数： name:= dbg.DataSource.DataSet.fieldbyname('dept_name').AsString.
主要是 Tchar 的显示问题！
X轴：显示科室（我增加的）。
Y轴：显示的是 sum:=ADOquery1.RecordCount的数值。
柱状图：上面的黄色标记就是 
该科室 sum:=ADOquery1.RecordCount的数值。
点击一次增加===》在X轴上增加一个选中科室及其柱状图。在点击就又增加一个选中科室。
点击一次删除===》在X轴上删除上一次增加的。
网上的Tchar资料太少了……实在是搞不懂了。求大神指教
[解决办法]
ADOQuery1.Close;
DBChart1.Legend.Visible:=False;
with DBChart1.SeriesList.Series[0] do begin
DataSource := ADOQuery1;
XLabelsSource := ADOQuery1Company.FieldName;
XValues.ValueSource := ADOQuery1SumItems.FieldName;
YValues.ValueSource := '';
Marks.Style := smsXValue;
CheckDataSource;
end; //with
with DBChart1.SeriesList.Series[1] do begin
DataSource := ADOQuery1;
XLabelsSource := '';
XValues.ValueSource := ADOQuery1NumOrders.FieldName;
YValues.ValueSource := '';
CheckDataSource;
end; //with
ADOQuery1.Open;
