没有！
我都是通过将文件一个个字节读出来，再写到目标文件中去的。
速度倒没有什么差别，还另有一个好处：你可以显示进程条当前多少字节或百分
比被复制了。
var
DesFile,SourFile : File;
Buf : Byte;
begin
AssignFile(SourFile,"源文件名");
Reset(SourFile,1); //1表示是一个一个字节地读
AssignFile(DesFile,"目标文件名");
Rewrite(DesFile,1);
while not Eof(SourFile) do begin
BlockRead(SourFile,Buf,SizeOf(Byte));
BlockWrite(DesFile,Buf,SizeOf(Byte));
end;
CloseFile(SourFile);
CloseFile(DesFile);
end;
