VBA中有个例子，在delphi中怎么写

Question

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.Pattern = xlPatternGray50
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With／／／／问题是上面的firstAddress在delphi中怎么定义呀？
我在delphi中是这样写的
var
c:variant;
begin
ry
EXLAppOld:=CreateOleObject('Excel.Application');
except
on Exception do raise exception.Create('无法打开Xls文件，请确认已 经安装EXCEL');
end;
EXLAppOld.Workbooks.Open(Edit1.Text);
EXLAppOld.Visible:=true;
c:=EXLAppOld.worksheets['hh'].Columns['H'].Find('love',lookin:=xlValues);
//address:=c.address;////////下面怎么写呀？
end;

Answer 1

看Excel的VBA帮助，c.Address是String类型