да пасиб, сам уже догодался....
я эту конструкцию использую для вира:
<code>
procedure TForm1.Button1Click(Sender: TObject);
begin
f FileExists('c:\2\123.txt') then
DeleteFile('c:\2\123.txt');
CopyFile('C:/1/123.txt','C:/2/123.txt',true);
</code>
Всем спасибо!