Увы, функция Seek с файлами TextFile работает некорректно. Читайте файл как бинарный и анализируйте сами, только не забывайте, что у текстового файла в конце есть символ конца файла $1A, который при открытии файла как бинарный считается содержимым файла, а при открытии как TextFile будет обозначать EOF. Кроме того, в некоторых файлах после $1A может содержаться "мусор" - случайный набор байт. Большая часть текстовых редакторов поэтому просто игнорируют всё, что идёт за $1A.