delphi 三层问题？？(25分)

小弟在应用服务器这个屋里面，有如下代码：
function TDCOMsever.gettabel: OleVariant;
var dbtable:tstrings;
i:integer;
begin
dbtable:=tstringlist.Create;
try
adoconnection1.GetTableNames(dbtable);
result:=vararraycreate([0,dbtable.Count-1],varolestr);
finally
dbtable.Free;
end;
end;
错误提示：undeclared identifier:'vararraycreate'
could not compile used unit 'dco.pas'

服务端用PROVIDER和ADO+数据库，客户端用DCOM+DATACLIENT

以上的代码都是在服务器做的

uses Variants;

接受答案了.