lazarus radiogroup

Ответ от Dim565[гуру]
Вот для 2х радиогруппов. Пример простейший, уверен можно более грамотно оформить, но это не ко мне 🙂
procedure TForm1.Button1Click(Sender: TObject);
var
sum_correct: integer;
begin
sum_correct:=0; // начальное значение правильных ответов
If RadioGroup1.ItemIndex=1 Then // нумерация ItemIndex с 0
begin
sum_correct:=sum_correct+1;
end;
If RadioGroup2.ItemIndex=3 Then
begin
sum_correct:=sum_correct+1;
end;
Edit1.Text:=IntToStr(sum_correct);
end;
end.