esta bien creado pero yo lo haria asi
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
mensaje:= ''
if Radio1.Checked then
mensaje:= mensaje + Radio1.Caption
if Radio2.Checked then
mensaje:= mensaje + Radio2.Caption
if Radio3.Checked then
mensaje:= mensaje + Radio3.Caption
ShowMessage(mensaje);
end;