Ошибка в ранее рабочем коде

[artemavd]

Возникает ошибка при компиляции программы. Раньше работал этот код:

function xls_to_stringgrid11(StringGrid1:TStringGrid; axlsfile:string):Boolean;
const
 XlCellTypeLastCell=$0000000b;
var
 XLapp,Sheet:Olevariant;
 RangeMatrix:Variant;
 x,y,k,r:integer;
begin
  Result:=false;
  XLapp:=CreateOleObject('excel.application');
  try
    XLapp.Visible:=false;
    XLapp.Workbooks.Open(axlsfile);
    Sheet:=XLapp.Workbooks[1].Worksheets[1];
    Sheet.cells.specialcells(XLCellTypeLastCell,emptyparam).Activate;
    x:=XLapp.Activecell.Row;
    y:=XLapp.Activecell.Column;
    StringGrid1.RowCount:=x;
    StringGrid1.ColCount:=y;
    RangeMatrix:=XLapp.Range['a1',XLapp.Cells.Item[x,y]].Value;
    k:=1;
    repeat
      for
        r:=1 to y do
        StringGrid1.Cells[r-1,k-1]:=RangeMatrix[k,r];
        inc(k,1);
        StringGrid1.RowCount:=k+1;
        until k>x;
        RangeMatrix:=Unassigned;
    finally
    if not Varisempty(XLapp) then
      begin
       XLapp.Quit;
       XLapp:=Unassigned;
       Sheet:=Unassigned;
       Result:=True;
      end;
    end;
  end;
//------------------------------------------------------------------------------

procedure TForm1.BtnNewClick(Sender: TObject);
begin
 Form1.OpenDialog1.FileName:='*.xls';
if OpenDialog1.Execute then
    begin
     if xls_to_stringgrid11(StringGrid1,OpenDialog1.FileName) then
     end;
end;

Говорит, что "[Error] UnitTwain.pas(1370): Undeclared identifier: 'emptyparam'"

[Sparkman]

uses variants;

есть?

[artemavd]

Зачот! Спасибо!