执行查询的时候，返回一些数据，怎样将这些数据写入excel，(100分)

在DELPHI执行查询的时候，返回一些数据，怎样将这些数据写入excel，
我用PARADOX，用BDE编程，万望各位高手指点，能发一个完整的程式给我吗
（包括库及其它所有文件）？
我的E—MAIL：zqingsong@cnuninet.com,我会给分的。

大概过程：
procedure saveDBGToExcel(Dg: TDBGrid);
var
exls,sheetlevariant;
i,j :integer;
begin
with Dg.DataSource.DataSet do
if Active then
begin
try
exls:=createoleobject('excel.application');
except
application.MessageBox('请先安装EXCEL','提示',mb_ok+mb_iconinformation);
exit;
end;
First;
DisableControls;
try
exls.workbooks.add;
sheet:=exls.workbooks[1].worksheets[1];
for i:=0 to Dg.Columns.Count-1 do
for j ...
begin
sheet.Cells.Item[i,j]:=Dg.Fields...;
...
end;
exls.visible:=true;
exls:=Unassigned;
sheet:=Unassigned;
finally
EnableControls;
end;
end;
end;