复制文件夹！

Question

复制文件夹的代码如下：
函数声明部分： 
function CopyDirectory(const Source, Dest: string): boolean;  //此处出错函数定义部分：
function CopyDirectory(const Source, Dest: string): boolean;
var
fo: TSHFILEOPSTRUCT; 
begin 
FillChar(fo, SizeOf(fo), 0); 
with fo do 
begin 
Wnd := 0; 
wFunc := FO_COPY; 
pFrom := PChar(source+#0); 
pTo := PChar(Dest+#0); 
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ; 
end; 
Result := (SHFileOperation(fo) = 0); 
end;调用时：
 result:=CopyDirectory(s_path,d_path);编译程序时出现错误，提示如下：
[Error] u_bf_shuju.pas(42): Unsatisfied forward or external declaration: 'Tbf_shuju.CopyDirectory'
出现在函数声明部门
怎么解决？
有更好的能用的其他代码吗？比如被复制的文件夹下还有子文件夹！

Answer 1

后面的function CopyDirectory(const Source, Dest: string): boolean;
改为function TForm1.CopyDirectory(const Source, Dest: string): boolean;

Answer 2

声明部分:
function CopyDirectory(const Source, Dest: string): boolean; forward;就可以了

Answer 3

用系统调用,如:
winexec('xcopy e:\temp\msx d:\temp\msx\ /s',sw_hide);