Estimado
Daniel :
Al fin entendí por qué no funcionaba el código que me enviaste y es porque yo llamo a los directorios y no a los archivos.
Utilizé la función para ordenar la fecha, que tú creaste:
Código Delphi
[-]function OrdenarFecha(const aDate: TDate): string;
begin
Result := Copy(DateToStr(aDate),7,4) + '-' + Copy(DateToStr(aDate),4,2) + '-' + Copy(DateToStr(aDate),1,2);
end;
y el siguiente código para armar el path que necesitaba
Código Delphi
[-]Destino:= ExtractFilePath(Application.ExeName)+'Dicom Data\Archivos Dicom\'+ OrdenarFecha(DateEdit2.Date) + '\' + Edit2.Text + '\';
CopyDir(OpenDialog1.Directory, Destino);
Edit3.Text:= Destino;
y de esta manera copia la totalidad de las imágenes en las carpetas de las series que corresponden a un determinado estudio, sin errores.
Muchas gracias
Daniel por tu enorme ayuda y por iluminarme en la solución.
Personas como tú hacen que este foro sea lo grande que es.
Saludos