delphi数据导入excel

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT MB001,MB002,MB003,MB004,TB001,TB002,TB003, TB004 FROM INVMB INNER JOIN INVTB ON MB001=TB004');
adoquery1.Open;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
？？？？？？？？？？？？？？？？？？？？？？？？？？？
end;

end.

谁能告诉我在？？？？号处添加代码实现点击按键2就能将上边查询结果导入到excel

我不要解释只要实现。
导出要能够分辨数据类型

procedure Tdaochu.BitBtn1Click(Sender: TObject);
var
i,row,column,icount:integer;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
begin
dm1.ADOQuery5.close;
dm1.ADOQuery5.SQL.Clear ;
dm1.ADOQuery5.SQL.text:='select * from 记录 where 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.date)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.date)+'# ';
dm1.ADOQuery5.Open;
//导出
Try
ExcelApplication1:=TExcelApplication.Create(Application);
ExcelWorksheet1:=TExcelWorksheet.Create(Application);
ExcelWorkbook1:=TExcelWorkbook.Create(Application);

ExcelApplication1.Connect;
Except
MessageDlg('Excel没有安装!',
mtError, [mbOk], 0);
Abort;
End;