//смотрим, есть ли файл
CopyFileEx('C:\...\txt.txt','A:\txt.txt',nil,nil,n il,COPY_FILE_RESTARTABLE);
Rename('A:\txt.txt','A:\'+Edit1.text);
копирует на ура, переименовывает соответственно
все замчательно работает, но вот этот пустой аналог в корне программы...
|