Тест в Delphi 7

[Ербулат]

Здравствуйте! Помогите решить проблему. Я создал тест в Delphi с помощью компонентов PageControl и CheckBox, после того как выбрал ответы, выходит результат и возвращаешься к выбору теста, если выбрал тот же самый тест то там ответы которые ты ответил до этого остаются (((. Как решить проблему не знаю.

[ych_del]

procedure Form1.btnStartTestClick(Sender: TObject);
var X, Y: Integer;
begin
   for X := 0 to PageControl1.Pages.Count-1 do 
      for Y := 0 to PageControl1.Pages[X].ControlsCount-1 do
         if PageControl1.Pages[X].Controls[Y] is TCheckBox then
            TCheckBox(PageControl1.Pages[X].Controls[Y]).Checked := False;

// Ну, а тут уже идет код, который у тебя начинает тест.
end;

[Ербулат]

Не получается (((, а есть другие варианты

[ych_del]

Ты уверен, что чекбоксы лежат прямо на TabSheet'ах, а не, к примеру, панелях, которые, в свою очередь, лежат на этих табшитах?