AddLineToFile, GetTextFileLinesCount, LoadLineFromFile

procedure AddLineToFile(FileName, Msg :string);

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

function GetTextFileLinesCount(filename :string) :int64;

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

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

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