и что это такое?
новый велосипед на тему? CopyFile, вообщето есть такая команда, юзайте ее)
итак.
1. AssignFile(f1,s1); - что это за бредятина?
она для TFileStream вовек не нужна, чтото с паскалем напутали
2. TFileStream; - вот это стрим!, а IntBuf: array [0..64] of byte; - буфер, не мешайте все в кашу, а то описание одно, а код совсем другой!
3. И нормальные люди пишут:
Код:
IntBuf: array of byte;
.
.
.
SetLength(IntBuf, GetFreemem....)
// готовый код не дам, сами подумайте что я такое написал, иначе так и не поймёте в чем ошибка
4. у вас в коде явная утечка связана с AssignFile(f1,s1);, на утечки вам плевать? не боитесь что юзери побьют?)