怎么使用BatchMove导表？(100分)

有那位大侠知道怎样使用BatchMove将一个结果集中的数据直接导成一个*.dbf文件？
这个DBF的表是在导出的时候创建的，原来不存在。
结果集中的数据来自于SqlServer的库（用Query查询到的）。
现在我好急啊！望各位大侠多多帮忙！最好是能给出一些源代码，小弟好效仿！
谢谢！

1.设置好连接MSSQL的QUERY，假定为QS；
2.建立一个别名，为STANDARD的
3.一个TTABLE，类型选DBASE，连接到2建立的别名 TD
4.BATCHMOVE的SOURCE为QS，DESTINATION为TD
5.MODE为BATCOPY
6....GO~~

没有access的...
如果dbase可以
type TTableType = (ttDefault, ttParadox, ttDBase, ttASCII, ttFoxPro);
一个使用的例子:
procedure SaveQueryToDFW(Query:Tdataset;DfWname:String);
var
bachmove:Tbachmove;
table:Ttable;
Begin
Table:=TTable.Create(Application);
Table.Tablename:=DFWname;
Table.TableType:=ttDbase;
BatchMove.source:=Query;
BatchMove.Destination:=Table;
BatchMove.Mode:=batCopy;
try
batchMove.execute;
finally
bachMove.Free;
Table.free;
end;
end;
batcopy是拷贝数据原到一个表项中，如果表项不在，自动建立，如果在的话，先删除，
然后再根据数据域的结构建立。
如果是batAppend的话，将数据源的记录添加到记录表中，目标表必须存在（缺省）

cj老大刚才一个电话,不好意思
关于主机空间我只知道chinaren的也不快
(elan租用了一个,www.baidao.net,你试一下就知道了)

请看代码：
../Borland/Delphi5/Help/Examples/Batchmv/batmv.dpr

多人接受答案了。