Здравствуйте, Глуханьков Сергей Александрович!
Допустим, что поле Edit1 используется для ввода ФИО, Edit2 для номера телефона и т.д.
Объявляем переменную файлового типа:
var f: text; В теле программы нужно будет задать этой переменной физический файл на диске:
AssignFile(f, 'My_File.txt'); Если файл не существует, то его нужно создать:
Rewrite(f); Или перед созданием проверить его на предмет существования:
if not FileExists('My_File.txt') then Rewrite(f); Когда файл открыт для записи, применить следующие команды:
writeln(f, 'ФИО: ', Edit1.Text);
writeln(f, 'Номер телефона: ', Edit2.Text); И так далее..
По окончании операций, не забудьте закрыть файл!
Close[u]File[/u](f); Best regards!