Pro Radiobutton ein Panel

[Darlo]

Nur mal aus dem Kopf raus:

Code:

for i := 1 to anzahlTabSheet do
  if TRadioButton(FindComponent('RadioButton'+inttostr(i))).checked then
    begin
      pageControl1.ActivePage := TTabSheet(FindComponent('TabSheet'+inttostr(i)));
      break;
    end;