Некорректная работа программы...

[HyperZen]

Приветствую!
Нашел на сайте (st-programming.ru) чудо-исходник избитой темы - программы для тестирования знаний.
Автор сего, видать нарочно, допустил несколько ошибок в коде (не хватает пары деструкторов(?)), в ходе выполнения этой программы все проходит замечательно до того момента, пока пользователь не нажмет кнопку "Начать тест заново" - лезет ошибка.
Дописываю деструктор - не помогает.

Создание тестов работает нормально. А вот сам тест - при попытке "Начать заново" выдает критическую ошибку.

Помогите кто чем может!
За ранее благодарен!

[kangreon]

Возможно переменная Questions где-то уничтожается.

В процедуре procedure TMainForm.LoadQuestion; создайте ее заново.

Questions := TObjectList.Create;

В итоге получится:

procedure TMainForm.LoadQuestion;
var
  tmpQuestion: TStQuestion;
  tmpQuestions: TObjectList;
  i, max: integer;
begin
  Questions := TObjectList.Create;
  Questions.Clear; // Очищаем список вопросов
  // Создаем врменные список для хранения активных
  // вопросов
  tmpQuestions := TObjectList.Create;

Все должно работать.

[HyperZen]

Сообщение от kangreon

Возможно переменная Questions где-то уничтожается.

В процедуре procedure TMainForm.LoadQuestion; создайте ее заново.

Questions := TObjectList.Create;

Огромное спасибо! Все действительно заработало!