[ecfisa]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  RadioGroup1.Items.Add('ITEM 1');
  RadioGroup1.Items.Add('ITEM 2');
  RadioGroup1.Items.Add('ITEM 3');
  RadioGroup1.ItemIndex:= -1;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  // PUEDE SER: ShowMessage(RadioGroup1.Items[RadioGroup1.ItemIndex]);
  // O TAMBIEN...
  case RadioGroup1.ItemIndex of
    1: ShowMessage('OPCION 1');
    2: ShowMessage('OPCION 2');
    3: ShowMessage('OPCION 3');
  end;
end;