[Decoding]

Ну не знаю. Проверил я твой вариант, все работает нормально, ничего лишнего не создается.

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
begin
   CopyFileEx( 'D:\txt.txt','C:\txt.txt', nil, nil, nil, COPY_FILE_RESTARTABLE );
   RenameFile( 'C:\txt.txt', 'C:\txt.bak' );
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  f: file;
begin
   CopyFileEx( 'D:\txt.txt', 'C:\txt.txt', nil, nil, nil, COPY_FILE_RESTARTABLE );
   AssignFile( f, 'C:\txt.txt' );
   Rename( f, 'C:\txt.bak' );
end;