AssignFile(f1, from.Text);

  //Связываем файловую переменную f2 со вторым файлом

  AssignFile(f2, where.Text);

  Reset(f1);  //Открываем первый файл на чтение

  sizez:= Trunc(FileSize(f1)); //Определяем размер файла

  //Отображаем размер файла для пользователя

  Label4.Caption:= IntToStr(sizez div 1024) + 'Кб';

  {Создаем второй файл или перезаписываем его, если он уже существует}

  Rewrite(f2);

  while not Eof(f1) do

  begin //Пока не достигнут конец первого файла

   //Считываем один байт из первого файла

   BlockRead(fl, cop, 1);

   //Записываем один байт во второй файл

   BlockWrite(f2, cop, 1);

  end;

  CloseFile(f1); //Закрываем первый файл

  CloseFile(f2); //Закрываем второй файл

 finally;

 end;//Конец блока обработки исключений

 if IOResult<> 0 //Если возникла ошибка ввода-вывода

 then MessageDlg('Ошибка при копировании файла!', mtError, [mbOk],0) //сообщение об ошибке

 else begin

  {Если ошибок не было, то выводим окно об успешном окончании копирования}

  ShowMessage('Успешно скопировано!');