Сделал давно программу тест. Работал себе, я даже забыл о нем. Вот пришлось немного поправить код, сделать как сказать оптимизацию. Вот такой глюк и проблему не могу решить. Например есть ли общый количество вопросов 5, при ответе 4 вопроса и оставление 5 того вопроса, то при завершение теста то 5 вопрос появляется с ответом из 4 вопроса. Вот кусок где я завершаю тест.
procedure TForm.Image3Click(Sender: TObject);
begin
Timer1.Enabled:=False;
if Application.MessageBox('Хотите завершит тест?','Тест',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
TestEnd;
end
else Timer1.Enabled:=True;
end;
В форме есть RadioGroup при нажатие вызевает процедуру RadioGroup1Click, каторый записывает в базу вариант ответа. Но как видете при завершение нет его вызова но при выполнение это процедура вызевается ?!!!! после Application.MessageBox. Вот это я немогу понят, или я что то упустил?