1:
2:
3:
4:

begin
....
copyfile(pchar('c:\test1\file1.txt'),pchar('c:\demo\file2.txt'),true);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  SourceFile: String;
  DestFile: String;
begin

  SourceFile := 'C:\TestOrdner\TestDatei.txt';
  DestFile := 'C:\Temp\TestDatei.txt';

  if not CopyFile(PChar(SourceFile), PChar(DestFile), True) then
    ShowMessage(SysErrorMessage(GetLastError));

end;