Foros Club Delphi - Porque sale este error "Error al copiar archivo o carpeta"?

Buenas tardes.
Estoy copiando una carpeta completa asi, y me funciona unas veces si y otra no a veces me sale "Error al copiar un archivo o carpeta. No se puede copiar Archivo: No se puede leer del disco o archivo de origen.."
Ya estoy volviendome loco con ese error....porque unas veces sale y otra no...no se que pueda pasar....estoy utilizando este código:

Cita:

SHFILEOPSTRUCTA *F = new SHFILEOPSTRUCTA;
String sOrigen, sDestino; // : String;
AnsiString Origen,Destino,cedulaos,examenos;
Origen="c:\\o\\a\\*.*";
cedulaos=DBEdit7->Text;
examenos= DBEdit36->Text;
DBEdit20->Text;
int Result;
Result = 0;
Destino= "C:\\odontologia\\temp\\"+cedulaos+"\\"+examenos+"\\";
Origen="Origen"+"\\"+"*.*";
// ForceDirectories("C:\\kk\\1\\5\\"); // Crear el directorio
ForceDirectories(Destino);
F->hwnd = Application->Handle;
F->wFunc = FO_COPY; // ó FO_COPY
F->pFrom = (Origen.c_str());
F->pTo = (Destino.c_str());
F->fFlags = FOF_ALLOWUNDO | FOF_NOCONFIRMATION ;
SHFileOperationA(F);
delete F;