1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function GetValueFromPanel(aPanel: TPanel): Integer;
var
  lComponent : TComponent;
  lIndex     : Integer;
  i          : Index;
  lRB        : TRadioButton;
begin
  result := -1;
  lIndex := -1;
  for i := 0 to (aPanel.ComponentCount - 1) do begin
    lComponent := aPanel.Components[i];
    if lComponent.inheritsFrom(TRadioButton) then begin
      inc(lIndex);
      lRB := TRadioButton(lComponent);
      if (lRB.Checked) then begin
        result := lIndex;
        break;
      end;    
    end;
  end;
end;