FUNÇÃO DE COPIAR ARQUIVOS NA REDE COM TSHFileOpStructA EM WINDOWS 7 ULTIMATE 64 BITS ESTA FALHANDO

FIZ UM PROGRAMA DE BACKUP NA REDE.
ELE PEGA VARIAS PASTAS COM ARQUIVOS E COPIA EM UMA UNIDADE MAPEADA NA REDE.
O SISTEMA FUNCIONA NOS WINDOWS XP, WINDOWS 7 32 BITS, WINDOWS 8, E QUANDO COLOQUEI ELE PARA RODAR EM UM WIN 7 64 BITS, PARECE QUE O WINDOWS BLOQUEIA EMITINDO ERRO 124.
ACHANDO QUE ERA O WINDOWS 64 BITS, TESTEI EM UM 64 BITS HOME BASIC, FUNCIONOU !

ALGUEM SABE PORQUE ESTA DANDO ESTE ERRO NO ULTIMATE 64 BITS.

A FUNÇÃO É ESTA :

procedure CopyDir(const cFrom, cTo : string);
var
OpStruc : TSHFileOpStruct;
frombuf, tobuf : array[0..128] of Char;
begin
FillChar(frombuf, Sizeof(frombuf), 0);
FillChar(tobuf, Sizeof(tobuf), 0);
StrPCopy(frombuf, cFrom);
StrPCopy(tobuf, cTo);
with OpStruc do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end; // with
ShFileOperation(OpStruc);
end; // CopyDir