madis 测试程序出错啊，急？？？？！！

我在服务器程序中加了个方法 在view-type libiary 中加了个方法 getalltables(获得表的名字),参数为vatables variant* 然后我在服务器中写他的代码，我声名一个
procedure getalltables (var vtables:olevariant);
然后写代码.可是他说 ‘’Declaration of 'getalltables' differs from declaration in interface 'Ieasydcomserver’‘？这是为何啊？？？？procedure Teasydcomserver.getalltables;(var vtables: olevariant);
var tblist:tstringlist;
 icount:integer;
 begin
  tblist:=tstringlist.Create ;
  with mysqlquery1 do
  begin
  close;
  sql.Text :='show  tables';
  open;
  end;
  for icount:=1 to mysqlquery1.RecordCount do
  begin
  tblist.Add( mysqlquery1.Fields[0].AsString);
  mysqlquery1.Next ;
  end;
  vtables:=vararraycreate([0,tblist.count-1],varvariant);
  for icount:=0 to tblist.Count -1 do
  begin
  vtables[icount]:= tblist.Strings[icount];
  end;
  tblist.Free ;
 end;