p,pk: string; begin p:='C:\file.dbf'; //Исходный файл pk:='C:\123\' ; //Место куда необходимо скопировать CopyFile(Pchar(p), Pchar(pk), true); end;