Чтение LPT и запись данных в файл

[sky132]

С чтением порта ЛПТ я разобрался, тут проблем небыло, вопрос в другом: как можно реализовать запись данных из LPT порта c адресом 888 (вобщем то неважно) в файл методом blockwrite
Вот код:

var
msvfile:file;
buf: array[0..128] of char;

begin
assignfile(msvfile,'msv.tmp');
reset(msvfile);

событие таймера
если количество прочтенных байт равно 128 тогда blockwrite(msvfile,buf,1);

проблема в том что в начале работы программы неизвестно количество записей которое будет иметь конечный файл, смысл в чтении байтов на порту и записи их в файл с максимально возможной скоростью, записывает только 128 байт даже если все организовано в цикле, мне нужно что бы добавлялось по 128 байт...
если у кого то была похожая проблема укажите направление