Delphi 7 Copy Directory recursive overwrite all file

Question

I have a simple function:

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with f