El componente RadioButton

[skinnerpro]

y se podra hacer de otra forma, un codigo mas largo?

Código Delphi [-]
variable
if RadioButton1.Checked := true then;
 controlseleccion
end

controlseleccion=seleccion;

if (seleccion == radiobutton1) then
    ShowMessage(opcion 1);
elseif seleccion == radiobutton2) then
    ShowMessage(opcion 2);
elseif seleccion == radiobutton3) then
    ShowMessage(opcion 3);
end

saludos