[ecfisa]

Hola juarias.

Te pongo un ejemplo con un RadioGroup:

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0..1: ShowMessage('0 a 1');
    2..3: ShowMessage('2 a 3');
    4..5: ShowMessage('4 a 5');
  end;
end;

Saludos.