Wolfik, вот "причесал" немного последний вариант и положил на SVN
Посмотри...
FPos в качестве глобального плохо...
Вот такая штука не будет работать code_1019