Да что ж это такое творится с функцией seek()?
Она работает, указатель по хэндлеру передвигает куда надо, но возвращает всегда 0 (а должна возвращать установленную позицию от начала). TAPView из-за этого косяка только первый заголовок и показывает т.к.:
FILELENGTH=SEEK(FILE,0,'E') => FILELENGTH=0
...
IF SEEK(FILE,1)=FILELENGTH THEN EXIT => 0=0 вот оно из цикла и выходит

Я уже всю голову сломал.