Delphi. Простой Тест

[tracer]

Дана задача сделать тест с использованием TRadioButton и TGroupBox.
Я сделал простой набросок, не обращайте внимание на смысл вопросов.
Отвечая на первый вопрос все идет как надо. Но отвечая на второй вопрос он просто дублирует ответ первого, и делает это до бесконечности.
Нужно что бы отвечал правильно и только на 2 вопроса.

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm8 = class(TForm)
    Box1: TGroupBox;
    radio_1: TRadioButton;
    radio_2: TRadioButton;
    radio_3: TRadioButton;
    Box2: TGroupBox;
    radio_4: TRadioButton;
    radio_5: TRadioButton;
    radio_6: TRadioButton;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
begin
   if radio_1.Checked then
Edit1.Text:=edit1.Text+'1)Верный ответ'
else
if radio_2.Checked then
Edit1.Text:=edit1.Text+'1)Неверный ответ'
else
if radio_3.Checked then
Edit1.Text:= edit1.Text+ '1)Неверный ответ'
else
if radio_4.Checked then
Edit1.Text:=edit1.Text+'2)Верный ответ'
else
if radio_5.Checked then
Edit1.Text:=edit1.Text+'2)Неверный ответ'
else
if radio_6.Checked then
Edit1.Text:= edit1.Text+ '2)Неверный ответ'
end;

end.

Подскажите.

Может нужно что то сделать с TGroupBox я точно не знаю.

[_PROGRAMM_]

Нужно убирать Checked c предыдущего RadioButton.

Добавил.
Пересмотрел код и понял, что то что я сказал теперь не актуально. Пока посижу подумаю.

[Stilet]

первые три RadioButton находятся в TGroupBox 1
следующие 3 во втором

Не, так не пойдет. Группировка Радио ведется по контейнерам. Ты их разнес, потому и при клике по некоему баттону из второго бокса, галочка с батона в первом боксе не исчезает.
ИМХО - нафик выкинуть эту программу и с нуля переделать изменив всю стратегию вкорне - совсем неудачная реализация.

[tracer]

с чего тогда начать хотя бы?

Может сделать через TRadioGroup? только как?

первые три RadioButton находятся в TGroupBox 1
следующие 3 во втором
может что то с ними сделать? что бы не дублировало

[Stilet]

с чего тогда начать хотя бы?

Начни с того что раз уж разнес батоны по группам, разнеси и обработчик на две части.

procedure TForm8.Button1Click(Sender: TObject);
begin
if radio_1.Checked then Edit1.Text:=edit1.Text+'1)Верный ответ'
else
if radio_2.Checked then Edit1.Text:=edit1.Text+'1)Неверный ответ'
else
if radio_3.Checked then Edit1.Text:= edit1.Text+ '1)Неверный ответ'
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
if radio_4.Checked then Edit1.Text:=edit1.Text+'2)Верный ответ'
else
if radio_5.Checked then Edit1.Text:=edit1.Text+'2)Неверный ответ'
else
if radio_6.Checked then Edit1.Text:= edit1.Text+ '2)Неверный ответ'
end;

Каждая кнопка помещается в свою группу, и контроллирует только батоны этой группы.