Короче, это стандартная ошибка когда программа не может определить конец файла. Попробуй применить стандартный метод решения - в конце файла вставить строку типа "###" и читать строки так:
var
s, text: string;
begin
repeat
s := ReadLine(res); // Читаем строку из файла
if s='###' then break; // Если конец файла, то прекращаем чтение
text := text + s; // Что-то делаем co строкой
until false;
end.