Создайте TFileStream и найдите позицию, из которой вы хотите загрузить, а затем передайте поток в элемент управления редактирования.Он должен загружаться с текущей позиции.
var
stream: TStream;
begin
stream := TFileStream.Create(filename, fmOpenRead);
try
stream.Seek(-500 * 1024, soEnd);
edit.Lines.LoadFromStream(stream);
finally
stream.Free;
end;
end;
Помните, что если файл закодирован как UTF-8 или что-то еще, использующее переменное число байтов на символ, переход к произвольному небезопасенпозиции в файле.Вы можете перейти к байту, который представляет вторую половину двухбайтовой последовательности, и тогда все последующие прочитанные вами символы могут быть неверно интерпретированы.Файлы ANSI и UTF-16 не представляют такой опасности.