Asignar path para guardar imágenes

[radenf]

Muchas gracias por responder ecfisa.
Funciona perfecto con una pequeña modificación, porque la ruta debe incluir tanto los estudios como las series y las imágenes.
Utilizé la función que me enviaste y el siguiente código para copiar los archivos al disco duro.

Código Delphi [-]
Destino:= MakePath(Edit2, Date,(Edit4.Text));
CopyDir(OpenDialog1.Directory, Destino);
Edit3.Text:= Destino;

¿Es posible evitar el mensaje que genera Windows señalando que la carpeta no existe y preguntando si deseo crearla, cada vez que utilizo dicho código?

Saludos y muchas gracias por tu ayuda.