[Aristarh Dark]

Код:

var
  sl:TStringList;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile(...//Тут имя файла);
  ShowMessage('Последняя строка файла: "'+sl[Count-1]+'"');
  sl.Free
end;