Тест на Delphi

[Zaraaa]

Ребят, помогите пожалуйста, решил тест исходник на форуме взять как пример. Добавил картинки к вопросам, но теперь неправильно показывает сколько баллов и оценку. А последний вопрос про "площадь круга" повторяется как первый вопрос при нажатии Начать Заново. В чем ошибка?
Функция VISIBLE описана правильно? чтобы картинки не показывались в каждом вопросе надо сделать невидимым каждый BUTTON?
Из за того, что добавил Image. и теперь ball и ocen не так работают(((

procedure TForm2.Button1Click(Sender: TObject);
begin
  img1.Visible:=False;
img2.Visible:=False;
img3.Visible:=False;
img4.Visible:=False;
img5.Visible:=False;
img6.Visible:=False;
if RadioButton4.Checked= true then
ball:= ball+1
else
ball:= ball;
 
Label1.Caption:='Впервые термин "информатика" возник в';
RadioButton1.Caption:= 'в 60-х годах в Англии';
RadioButton2.Caption:= 'в 60-х годах во Франции';
RadioButton3.Caption:= 'в 80-х годах в Германии';
RadioButton4.Caption:= '';
 
Button1.Visible:= false;
Button2.Top:= Button1.Top;
Button2.Left:= Button1.Left;
Button2.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
 
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Вопрос номер ' + IntToStr(num);
end;

[Zaraaa]

Уже разобрался, не надо

[Алексей_2012]

Ох, Жесть, зачем же так усложнять вопросами в самом тексте программы, тысячами кнопок на форме и радиобаттоны... ппц

посмотрите на мой тест, всего одна кнопка "далее". вопросов и вариантов ответа в коде нет совсем...уж не знаю как так ПОЛУЧИЛОСЬ (ССЫЛЬ)