Problemas con funcion

[gdlrinfo]

Hola amigos tengo la función que esta mas abajo que me copia un archivo de un directorio a otro el problema es cuando quiero copiar muchos archivos por ejemplo
CopiaTodo('L:\act\*.xls ', 'L:\OPE\*.xls');
Suponiendo que ahí dentro hay muchos archivos si pongo el comodin hace el proceso pero no me los copia como podría solucionarlo gracias como siempre

Código Delphi [-]
function CopiaTodo(Origen,Destino : String) :
   LongInt;
   var
     F : TShFileOpStruct;
     sOrigen, sDestino : String;
   begin
     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 or FOF_SIMPLEPROGRESS;
     end;
     Result := ShFileOperation(F);
 end;