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
case RadioGroup1.ItemIndex of
1: ShowMessage('OPCION 1');
2: ShowMessage('OPCION 2');
3: ShowMessage('OPCION 3');
end;
end;