紧急，有关excel的问题(100分)

请问，我是从dbgrid中将数据导入excel中的，请问如何在delphi中控制excel使得
每行的开头都有字段名？？？字段名事先都不知道

字段名都不知道？？？
str:array of string;
setlengt(str,adoquery.fieldcount)
for i:= 0 to adoquery.fieldcount-1 do
begin
str:=adoquery.Fields.FieldName;
end;
str数组里面，存放各字段名。
把他写到excel第一行中就行了。

对呀，这样可以在第一页显示，那其他页呢？？

我有一个BUTTON控件 就一按可以搞定,要的话 给我发个MAIL
002670@163.COM

在程序中创建一全局的DataModual,在DataModual中放置一TDatabase控件，
设定TDatabase.DriverName=MSSQL,指定DatabaseName=？(exampleatabase1),在DataModual的TDatabase控件上单击右键，选取Database Editor,点击Defaults,
Parameter overrides 框中出现设置值，修改
Database Name=? (you database name)
Server Name = ? (you Nt server name)
User Name = ? (SQL server User Name,for example:sa)
Password = ? (SQL server User Password)
点击OK,
设定Connected 为 True
选取Project|Options,将DataModual设为第一个自动创建的Form.
程序中其他TTable,TQuery等的DatabaseName设为Database1即可。

query.Fields.FieldName;

Table1.Open;
row := 1;
while not (Table1.Eof) do
begin
column := 1;
for i := 1 to Table1.FieldCount do
begin
if row=1 then
ExcelWorksheet1.Cells.Item[row, column]:=Table1.Fields[i-1].FieldName
else
ExcelWorksheet1.Cells.Item[row, column]:= Table1.fields[i - 1].AsString;
column := column + 1;
end;
Table1.Next;
row := row + 1;
end;