открытие нескольких файлов

[Serge_Bliznykov]

valyan,
1) АБСОЛЮТНО лишняя строчка FindClose(sr); -это завершение поиска выполняемого в FindFisrt/FindNext
2) если файл будет длиной менее 1024 байт, то в Buf прочитается столько, сколько есть (количество реально прочитанных байт - возращается в четвёртом (необязательном) параметре, который у Вас опущен.
3) переменную файл можно объявить не
var f : file; как у вас, а так:
var f : file of byte;
тогда открытие файла будет так: Reset(f); (без единицы)

и последнее, я бы рекомендовал посмотреть Вам в сторону файловых потоков (TFileStream) - с ними гораздо удобнее работать.... впрочем, это уже зависит от предпочтней программиста и от решаемой задачи... это Вам решать...