[Kailon]

Вы хотите сделать так, чтоб в последнем Edit'e вводить номер правильного ответа. Так как судя по вашему примеру ответ с единичкой в начале это верный. Или вы сразу определяете верный ответ. Судя по вопросу надо 6 полей ввода, а судя по строкам в файле 5. Если требуется передать просто содержимое полей ввода в файл, то это просто:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var   F: TextFile; begin   AssignFile(F, 'd:\test.txt');   Rewrite(F); // если создать файл   // Append(F); // если необходимо дописать в файл   Writeln(F, Edit1.Text);   Writeln(F, Edit2.Text);   Writeln(F, Edit3.Text);   Writeln(F, Edit4.Text);   Writeln(F, Edit5.Text);   CloseFile(F); end;