[559]

дайте плз оператор копирования файла и шаблон его использования

[Страдалецъ]

Можете такой оберткой воспользоваться:

Код:

function FileCopy(SrcFile, DstFile: String; ProgressBar: TProgressBar): Boolean;
begin
 Result := False; 
 Result := CopyFileEx(PChar(SrcFile),PChar(DstFile),@FileActionProgress, ProgressBar, Pointer(Result), 0);
end;

[Лунтик-Некрофил]

Код:

copyfile('путь к файлу','путь куда его копируем',true);

Или ещё как вариант через blockread/blockwrite.