работа с текстовыми файлами

[Bayazet]

я решил выйти из этой проблемы по другому:
TBigString = Array of WideString
а потом считываешь все из файла, каждый раз динамически увеличивая массив.

тогда для прогрессбара на максимум ставлю Length(bigstring)
а позицию увеличиваю на единичку каждый раз при чтении из массива
кстати, чтение тоже простое получилось str := bigstring[index]
вот

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