Si quieres más opciones, como por ejemplo copiar varios archivos de una sola vez (con comodines), incluyendo o no subdirectorios, mostrando o no el diálogo estándar de Windows de progreso de copia, pidiendo confirmación o no, y otras cosas, usa la API SHFileOperation.
uses ShellAPI;
const FOF_NORECURSION = $1000;
procedure TForm1.Button1Click(Sender: TObject);
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
with FileOp do begin
wFunc := FO_COPY;
pFrom := PChar('d:\path1\*.*'); // Origen
pTo := PChar('d:\path2\'); // Destino
fFlags:= FOF_NOCONFIRMATION or FOF_NORECURSION or FOF_SILENT;
end;
SHFileOperation(FileOp);
end;
Espero que te sirva.
Saludos,
Ernesto D'Spirito
http://www.latiumsoftware.com/es/