Создание файла (txt) теста через Delphi

Type 
TTEST = Record
 TEXT : String [250]; // Текст Вопроса
 OTV : Array [1..4]of String [100];// Варианты ответов
 REZ : Array [1..4]of Byte // Правильный ответ
end;
 
...
Var FFile: File of TTEST;
...
 
procedure TForm1.Button3Click(Sender: TObject);
Var I :Byte;
STROK:TTEST;
STEP, STEP_N:integer;
begin
STEP_N:=1;
AssignFile(FFILE,'TEST.txt');
Rewrite(FFILE);
Button1.Enabled:=False; //Недоступны все три кнопки
Button2.Enabled:=False;
Button3.Enabled:=False;
For I:=1 to STEP_N+1 do
begin
STROK:=TEST_[I];
Write(FFILE, STROK)
end;
CloseFile(FFILE)
end;

AssignFile(FFILE,'TEST.txt');

AssignFile(FFILE,extractfilepath(paramstr(0))+'TEST.txt');

Type 
TTEST = Record
 TEXT : String [250]; // Текст Вопроса
 OTV : Array [1..4]of String [100];// Варианты ответов
 REZ : Array [1..4]of Byte // Правильный ответ
end;
 
...
Var FFile: File of TTEST;
...
 
procedure TForm1.Button3Click(Sender: TObject);
Var I :Byte;
//STROK:TTEST;
STEP, STEP_N:integer;
begin
STEP_N:=1;
AssignFile(FFILE,extractfilepath(paramstr(0))+'TEST.txt');
Rewrite(FFILE);
Button1.Enabled:=False; //Недоступны все три кнопки
Button2.Enabled:=False;
Button3.Enabled:=False;
For I:=1 to STEP_N+1 do
begin
//STROK:=TEST_[I]; имхо, это лишнее
Write(FFILE, TEST_[I]);
end;
CloseFile(FFILE)
end;

begin
If (RadioButton1.Checked=False) and
(RadioButton2.Checked=False) and
(RadioButton3.Checked=False) and
(RadioButton4.Checked=False)
Then
begin
ShowMessage('Не выбран правильный ответ');
Exit;
end;

//If STEP=1 Then
begin
TEST_[1].TEXT:=Edit1.Text; //Зачем мы в текст вопроса первого теста пишем название этого теста? 
Edit1.Enabled:=False;
STEP_N:=StrtoInt(SpinEdit1.Text); //Хорошо, мы присваиваем переменной значение из SpinEdit. Но! У SpinEdit есть метод Value, который и без StrToInt дает целочисленное значение. Причем, переменную STEP_N в дальнейшем используем странно. 
SpinEdit1.Enabled:=False;
STEP:=STEP+1; //STEP - это локальная переменная, и после завершения процедуры она "исчезает". Более того, этой переменной в начале процедуры присваиваем единицу. Как предлагается уйти дальше второго вопроса?
end;

STEP:=STEP+1; //мы вновь прибавляем единицу к STEP. Итого, независимо от прочих условий, у нас уже STEP=3 в любых обстоятельствах
TEST_[STEP].TEXT:=Edit2.Text; //Третьему тексту вопроса мы присваиваем значение из Edit2, независимо от текущего порядкового номера вопроса. Так все же мы в эту переменную пишем данные из Edit1 или из Edit2? 
For I:=1 to 4 do
//begin
TEST_[STEP_N].OTV[I]:=TEdit(FindComponent('Edit'+IntToStr(I))).Text; //Двумя строчками выше мы присваивали текст вопроса тесту с порядковым номером STEP=3. Возможные ответы мы присваиваем тесту с порядковым номером STEP_N, который, как мы помним, мы взял из SpinEdit и который равен количеству вопросов в тесте. Т.е., по умолчанию, пятому тесту.

If TRadioButton(FindComponent('RadioButton'+IntToStr(1))).Checked= True //тут мы берем проверку только первого RadioButton, отказавшись от цикла (посмотрим чуть выше в код, там begin закомментирован). Если вдруг он оказался отмеченным, то только тогда записываем значение. Кстати, для твоих задач есть уже существующий компонент TRadioGroup, который позволит избежать кучи геммороя и самостроя. Что вообще такое "IntToStr(1)"? Я понимаю, что это "ошметки" от закомментированного begin, но, блин...
Then TEST_[STEP_N].REZ[I]:= 1; //а как же остальные варианты? Правильным может быть только ответ под порядковым номером 1?
end; //а что, если не секрет, этот end завершает с логической точки зрения? Какой блок кода огорожен этими begin/end?

Button1.Enabled:=True; //ну окей, логика есть
If STEP>STEP_N Then //проверка на окончание ввода тестов и предложение все сохранить? Увы, с текущим кодом это недостижимо. STEP никогда не станет больше тройки (да на этом этапе он и меньше тройки никогда не будет), а STEP_N никогда не будет меньше пятерки.
begin
STEP:=STEP+1;//зачем? Если вдруг STEP принял значение 6 и стал больше значения количества тестов (5), то зачем прибавлять к этому значению единицу и делать STEP равным 7?
Button2.Enabled:=False;
Button3.Enabled:=True;
end;

begin
Label3.Caption:='Вопрос № '+IntToStr(STEP-1); //Так. А здесь почему STEP-1? У нас же парой строк выше было STEP+1, которое явно сработает при превышении количества вопросов и, как результат, даст неправильный результат? Плюс, почти всю процедуру STEP у нас равняется тройке. Т.е. вопрос мы записали в третий тест, ответы записали в пятый, а потом пользователю сообщили, что сейчас у нас второй вопрос?
Edit2.Text:=TEST_[STEP].TEXT; //Стоп!!! Ну стоп же!!! Ну как так? Мы строчкой выше вывели, что у нас вопрос номер STEP-1, т.е. два, и тут же в Edit2 выводим вопрос из третьего теста, который мы несколькими строчками выше из этого же Edit'a и сохранили! Что ты такое?!
For I:=1 to 4 do
begin
TEdit(FindComponent('Edit'+IntToStr(I+2))).Text:=TEST_[STEP].OTV[I]; //Так. Вопрос номер два, но ответы мы возьмем из теста номер три, в который мы ответы ранее не сохраняли. Т.е. всегда будет присваиваться пустая строка. С точки зрения пользователя, конечно, все ок, визуальная часть отрабатывает как надо, но, блин... Это же совсем не означает, что все как надо. Наоборот, из-за этой обертки автор, видимо, думает, что эта часть у него работает хорошо, хотя она не работает вообще.
If TEST_[STEP].REZ[I]= 1 Then // и опять эта мастерская проверка на то, является ли правильным ответом первый ответ. Остальные у нас, судя по расовой теории африканцев, недостойны, и в любом случае будут неверными, даже если они верные.
TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Checked:= True
else
TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Checked:= False
end;
end;