SHfileOperation 

uses.....,ShellAPI 

// action одно из FO_MOVE,FO_DELETE,FO_COPY,FO_RENAME
procedure FileSystemAction(action:longint;fromDir,toDir:string); 
var SHFileOp:TSHFileOpStruct; 
begin 
SHFileOp.wnd   :=Form1.handle; 
SHFileOp.wFunc :=action; 
SHFileOp.pFrom :=Pchar(fromDir  +# 0 +# 0 ); 
SHFileOp.pTo   :=Pchar(toDir    +# 0 +# 0 ); 
SHFileOp.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION or FOF_MULTIDESTFILES; 
SHFileOp.fAnyOperationsAborted:=false; 
SHFileOp.hNameMappings        :=NIL; 
SHFileOp.lpszProgressTitle    :=NIL; 
SHFileOperation(SHFileOp); 
end;