delphi7中导出EXCEL的问题！请教！

procedure TfmPM002_03.BitBtn1Click(Sender: TObject);
var
  i,j: integer;
  aSheet: Variant;
begin
    inherited;
    try
      ExcelApplication1 := TExcelApplication.create(Application);
      ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1);
      aSheet:=ExcelApplication1.Worksheets.item[1]; //把EXECL設定為可以顯示的狀態
//      aSheet.range['A:A'].numberFormatLocal := '@';
//    //在第一行將欄位名稱塞入
      for j:=1 to query1.FieldCount do //欄位名稱
      begin
       // aSheet.cells[1,j].value := query1.FieldList[j-1].FieldName;
        aSheet.cells[1,j].value := dbgrid1.Columns[j-1].Title.caption;
      end;
      i:= 2;
      query1.First;
      while not query1.Eof do
      begin
        for j := 0 to query1.FieldCount-1 do //欄位名稱
        begin
          aSheet.cells[i,j+1].value := query1.FieldList[j].AsString;
        end;
       query1.Next;
        i:= i+1;
      end;
      aSheet.columns.autofit;  //將每行設定為適合欄寬
    finally
      ExcelApplication1.Visible[0] := true;
      aSheet := Unassigned;
      ExcelApplication1.CleanupInstance;
    END;end;
==================================
提示错误：[Error] PM002_03.pas(65): Undeclared identifier: 'Unassigned'请高手指点这是什么问题，是不是在前面的USES缺少声明什么的？