Utiliser les fonctions du Shell (Windows) pour la copie

uses Shellapi;

TSHFileOpStructA = record
Wnd:HWnd;
wFunc:Uint;
pFrom:PAnsiChar;
pTo:PAnsiChar;
fFlags:FILEOP_FLAGS;
fAnyOperatiosAborted:Bool;
hNameMappings:Pointer;
lpszProgressTitle:PAnsiChar;
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
with shellinfo do
begin
wnd:=handle;
wFunc:=FO_COPY; //or FO_MOVE or FO_DELETE
pFrom:='C:Autoexec.bat';
pTo:='c:windowssystem';
end;
SHFileOperation(shellinfo);
end;