Скопировать или переместить файл

uses 
  ShellAPI; 

function FileCopy(Source, Destination: string): boolean; 
var 
  ShFileOpStruct: TShFileOpStruct; 
begin 
  with ShFileOpStruct do 
  begin 
    { FO_MOVE для перемещения файла } 
    wFunc := FO_COPY;         
    { имя файла источника } 
    pFrom := PChar(Source); 
    { имя файла получателя } 
    pTo := PChar(Destination); 
  end; 

  { возвращает true при удачном выполнении ; иначе false } 
  result := (0 = SHFileOperation(ShFileOpStruct)); 
end;