EvgIg, Цикл со счётчиком мне помог, но скорость возросла всего в 100 раз, т. е. 10 кбайт/с. Это сколько надо ждать, чтобы прогнать 700 м.
А скорость винта 50 мбайт/с.

Может можно другим способом копировать-побыстрее, а не так как у меня. Или просто поменять что-то.
-=Dima=-, Где взять значения арифметических операций из компонента Math (xor, div, mod)? Зашифровал данные, а где обратная операция?