Создание диаграммы в Excel из ADOQuery

[КатЭ]

Здравствуйте, подскажите, пожалуйста, как мне создать и заполнить данными диаграмму в Excel Я только смог сделать вывод таблицы из адо.

procedure TFormBoss.N41Click(Sender: TObject);
var
XL,Sheet: Variant;
i: integer;
begin
DataModule1.ADOdiagr.Close;
DataModule1.ADOdiagr.SQL.Clear;
DataModule1.ADOdiagr.SQL.Add('SELEC T Kategoriya, COUNT (FioSot) as KolPrep FROM Sotrudnik , Kvalifikaziya where NomerSotrudnika=TabNomer GROUP BY Kategoriya');
DataModule1.ADOdiagr.Open;
XL:= CreateOleObject('Excel.Application' );
XL.WorkBooks.Add;
Sheet:= XL.ActiveWorkBook.Sheets[1];
Sheet.PageSetup.Orientation:= 2; //===Eie?iay i?eaioaoey===
Sheet.Name:= 'Лист';
Sheet.Columns[1].ColumnWidth:= 25;
Sheet.Columns[2].ColumnWidth:= 20;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].HorizontalAlignment:= 3;
Xl.Selection.Font.Name:='Times New Roman';
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].VerticalAlignment:= 2;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].WrapText:= true;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Font.FontStyle:= '';
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,3]].Merge(false);
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Font.Size:=18;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Font.Bold:=true;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]]:= 'Список ';
Sheet.Range[Sheet.Cells[3,1],Sheet.Cells[3,2]].Font.Size:=12;
Sheet.Range[Sheet.Cells[3,1],Sheet.Cells[3,2]].WrapText:= true;
Sheet.Range[Sheet.Cells[3,1],Sheet.Cells[3,2]].Font.Bold:=true;
Sheet.Cells[3,1]:= 'Кол-во преподавателей';
Sheet.Cells[3,2]:= 'Категория';
i:= 4;
DataModule1.ADOdiagr.First;
while not DataModule1.ADOdiagr.Eof do
begin
Sheet.Cells[i,1]:= DataModule1.ADOdiagr.Fields[0].AsString;
Sheet.Cells[i,2]:= DataModule1.ADOdiagr.Fields[1].AsString;
inc(i);
DataModule1.ADOdiagr.Next;
end;
XL.Visible:= true;
Sheet:= UnAssigned;
XL:= UnAssigned;

end;

Вывод таблицы в Excel