Copiar fichero por la red

[Descendents]

No se si esto te servira, pero creo que si.
Estarás usando la copia misma de windows. Pruebalo.

function TForm1.CopiaTodo(Origen,Destino : String):LongInt;
   var
     F : TShFileOpStruct;
     sOrigen, sDestino : String;
   begin
    try
     Result := 0;
     sOrigen := Origen + #0;
     sDestino := Destino + #0;

     with F do
     begin
       Wnd   := Application.Handle;
       wFunc := FO_COPY;
       pFrom := @sOrigen[1];
       pTo   := @sDestino[1];
       fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
     end;
     Result := ShFileOperation(F);
    except
      close;
    end;
 end;

luego lo llamas de la siguiente manera

CopiaTodo(\\cputal\c\taltaltal,\\cpuqual\c\taltaltal);