Mehreren RadioGroups eine Anweisung zuweisen

[moperswings]

Hallo,

ich habe in einem TabSheet mehrere Radiogroups mit z.B. je 3 Items die angeklickt werden müssen, zum einem brauche ich das Ergebnis und Exceptions möchte ich vermeiden, wenn ich den Kram speichere. Deshalb ist der Button, mit dem ich weiter zu meinem nächsten Tabsheet klicke auf unsichtbar eingestellt bis alles angeklickt ist! Mein Code:

Delphi-Quellcode:

procedure Radiogroup1
begin
   case Radiogroup1.itemindex of
      0: begin button1.visible := true; end;
      1: begin button1.visible := true; end;
      2: begin button1.visible := true; end;
    end;
end;

nächste Radiogroup ...

Da ich aber viele Radiogroups habe, ist mir das zu umständlich und zu viel unübersichtlicher Code!
Gibt´s eine Möglichkeit, die Radiogroups innerhalb eines TabSheets zusammen zu fassen oder muss jede Komponete für sich behandelt werden?

Hoffe, Ihr könnt mir helfen
moperswings