Создание теста Delphi через БД Access

[marusua]

Здравствуйте!
Я создала тест через БД в Delphi ...
Вот код на кнопку "Следующий вопрос":

if MainForm.Ques = 0 then begin

TestAddForm.DBMemo1.DataField := '';
TestAddForm.dbtxt1.DataField := '';
TestAddForm.DBTxt2.DataField := '';
TestAddForm.DBTxt3.DataField := '';
TestAddForm.DBTxt4.DataField := '';
TestAddForm.Edt1.DataField := '';

ShowMessage(inttostr(ball));
adtbl2.Last;
adtbl2.Insert;
edtName.Text:=LoginForm.name;
edtParol.Text:=LoginForm.parol;
edtNomTest.Text:='2';
edtBall.Text:=IntToStr(ball);
adtbl2.Post;
TestStForm.Close;

TestAddForm.Close;
end
else begin

if rb1.Checked then otvet := 1
else if rb2.Checked then otvet := 2
else if rb3.Checked then otvet := 3
else if rb4.Checked then otvet := 4;

if otvet = StrToInt(Edt1.Text) then inc(ball);

TestAddForm.ADOQuery1.Next;
dec(MainForm.Ques);
end;

Но мне необходимо сделать возврат на предыдущий вопрос и просмотр выбранного варианта и если необходимо выбрать другой и затем ответ должен пересохраниться! помогите, пожалуйста!!!