[NumLock]

Asmoday74, 7.

Код:

var
  f1, f2: String;
  p: PChar;
begin
  f1:='d:\Downloads\WScript.Shell.txt';
  f2:='d:\Downloads\WScript.Shell++.txt';
  CopyFile(PChar(f1), PChar(f2), False);
end;