Busqueda de archivos especificos

[gdlrinfo]

Hola muchísimas gracias por responder en primer lugar te cuento ecfisa que el código que me pasaste me da error de compatibilidad de tipos en las líneas que contienen

Código Delphi [-]
 if (GetFileAttributesA(PChar(Source)) = INVALID_FILE_ATTRIBUTES) then

el error es [dcc32 Error] Pagos.pas(85): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar' ////
Eso por una parte por la otra nlsgarcia la verdad me funciona lo que me pasaste pero si tocas la pantalla o haces algo mientras copia se tilda la verdad tendría que mirar a ver que pasa pero la copia lo hace bien una pregunta!!! Es posible que mientras copia al directorio de destino le cambie la extencion *.rtf por *.doc desde ya muchas gracias por todo !!!!