procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('c:\2\123.txt') then
DeleteFile('c:\2\123.txt');
begin

if CopyFile('C:/1/123.txt','C:/2/123.txt',true) then
ShowMessage('Файл скопирован!')
else ShowMessage('Ошибка!');
end;
end;

__________________

Завтра будет.Лучше.