в разделе переменных определяешь текстовый файл
...
var
F: TextFile;
...
затем в процедуре используешь операторы для работы с файлами:
AssignFile(F,'путь к файлу'); - ассоциировать файловую переменную с файлом
Reset(F); - инициализация файла по чтению
Rewrite(F); - инициализация файла по записи
Append(F); - инициализация файла по добавлению строк в конец файла.
WriteLine(F,'строка'); - запись строки в файл
ReadLine(F,S); - чтение строки из файла в переменную S
CloseFile(F); - закрыть файл.
Для того чтобы самому указывать путь, кидай на форму TEdit, в него пусть вводится путь, а EditText используй в AssignFile(F,'путь к файлу')
В цикле чтения используй признак конца файла EOF(F) или конца строки EOL(F) - это логические функции.