Delphiにファイルをコピーする関数はないので、Windows APIのCopyFile関数を使用。
書式：CopyFile(コピー元ファイル名,コピー先ファイル名,フラグ)
フラグ
Ture： コピー先に同名ファイルがある場合は、処理を中止しFalseを返します。
False： コピー先に同名ファイルがある場合は、上書きします。
*CopyFile関数はAPI関数の為、ファイル名をString型で与える時は、PChar型にキャストする。
サンプル
uses SysUtils, MMSystem ,WINDOWS;
var
F1,F2:string;
tm:int64;
begin
tm:=timeGettime;
WriteLn(‘◆CopyFileを使用’);
F1:=’input.txt’;
F2:=’output.txt’;
CopyFile(PChar(F1),PChar(F2),false);
WriteLn(‘処理時間：’,inttostr(timeGettime-tm),’ms’);
end.