Delphi. Чтение ПОСЛЕДНЕЙ строки из файла.

[Colix]

Задача такая, я пишу локальный чат на Delphi и мне нужно прочитать последнюю строку файла.

Есть такой код

  AssignFile(F,'log.txt');  Reset(F);  While not EOF(F) do Begin  Readln (F,S);  chat.Lines.Add(S); end;  CloseFile(f);

Этот код вызывается каждую секунду, но каждую секунду он выводит ВСЁ что есть в файле а мне нужно только последнюю строку.

З.Ы. Или ещё лучше если подскажите как сделать так чтобы код проверял, сколько строк было добавлено в файл(вдруг не 1, а больше) с момента последнего прочтения и выводил добавленные строки, а не весь файл!

[Зверюга]

Используй вместо

While not EOF(F) do Begin  Readln (F,S);  chat.Lines.Add(S); end;

Такое

Repeatreadln(F,S);Until (eof(F))chat.Lines.Add(S);

S- строка

После выполнения цикла содержит последнюю строку

[Colix]

Используй вместо

While not EOF(F) do Begin  Readln (F,S);  chat.Lines.Add(S); end;

Такое

Repeatreadln(F,S);Until (eof(F))chat.Lines.Add(S);

S- строка

После выполнения цикла содержит последнюю строку

Спасибо!