procedure AddLineToFile(FileName, Msg :string);

добавить тестовую строку "Msg" в конец файла "FileName";

function LoadLineFromFile(FileName :string; LineNumber :integer; var Txt :string) :boolean;

прочитать строку номер "LineNumber" из текстового файла "FileName" в переменную "Txt". Если попытка чтения завершилась неудачей (нет такой строки, файла не существует и т.п.) - функция вернет "False";

function GetTextFileLinesCount(filename :string) :int64;

Функция возвращает количество строк в указанном текстовом файле. Если файла не существует - то функция вернёт число "-1";