怎么没人回我呀

uses 中加
excelxp,comobj

//生成Excel
procedure TDlgAcc002Form.Button3Click(Sender: TObject);
var
x,y,i,j:integer;
   MsExcel:OleVariant;
begin
      try
      MSExcel:=CreateOleObject('Excel.Application');
      MSExcel.application.Visible:=False;
    Except
      on Exception do raise exception.Create('无法打开xls文件,请确认已经安装了EXCEL');
    end;
    MSEXCEL.WORKBOOKS.ADD;
x:=adoquery1.fieldcount;
y:=adoquery1.recordcount;
for I:=1 to x do
MSExcel.cells.item[1,i]:=adoquery1.fields[i-1].fullname;
adoquery1.first;
for j:=2 to y+1 do
begin
for i:=1 to x do
begin
MSExcel.cells.item[j,i]:=adoquery1.fields[i-1].value;
end;
adoquery1.next;
end;

    MSExcel.application.Visible:=True;
    MSExcel.Quit;
    MSExcel:=Unassigned;
    Screen.cursor:=crdefault;
end;