Guten Morgen, gfjs.
Es geht ohne eine Schleife, wenn du den RadioButtons im tag property einen eindeutigen Wert zuweist. Diesen kannst du dann im gemeinsamen OnClick() event handler zur Steuerung deiner Aktionen verwenden:
Delphi-Quellcode:
procedure TDemoForm.RadioButtonClick(Sender: TObject);
begin
with Sender as TRadioButton do
case Tag of
1: ShowMessage('have');
2: ShowMessage('a');
3: ShowMessage('nice');
4: ShowMessage('day');
end;
end;
Freundliche Grüße vom marabu