Como copiar un grupo de archivo de una sola etension

[[kurono]]

hola amigos del foro tengo un problema quiero hacer una aplicacion en delphi 7 que me copie un grupo de archivo de una sola extension por ejemplo *.doc eso se hace facil en DOS que seria copy "c:\*.doc" "d:" pero me gustaria hacer eso con delphi 7 debo aclarar que se copiar archivo con delphi 7 pero solo se copiar uno a la ves no todo el codigo seria este

copyfile(pchar('c:\nombre.doc'),pchar('d:\nombre.doc'),true);

si hay una forma de modificar este codigo para que copie un grupo de archivo de una sola extension se lo agradeceria mucho