Hola,
Otra opción puede ser usar la función "ShFileOperation()" de la unidad "ShellApi.pas", que puede dar bastante juego. Aquí un sencillo ejemplo:
Código Delphi
[-]
uses
ShellApi;
function CopiarArchivo(const origen, destino: string): boolean;
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp),#0);
with FileOp do begin
wFunc := FO_COPY;
pTo := PChar(destino+#0#0);
pFrom := PChar(origen+#0#0);
fFlags := FOF_NOCONFIRMATION;
end;
result := (ShFileOperation(FileOp) = 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CopiarArchivo('C:\archivos\*.txt','C:\archivos2\');
end;