Codificacion

[seryo]

Quisiera que me ayudes en la codificacion de un algoritmo, basicamente realize un algoritmo que se basa en PV=nrt, es una ecuacion de gases ideales, eh puesto un radiogroup y dentro d ellos 4 radiobutton, es decir radiobutton1,radiobutton2....etc. esto lo hice con la finalidad de que uno pueda elegir que es lo que quiere encontrar, ya sea la presion(que es radiobutton1), volumen(radiobutton2),n,temperatura(radiobutton4).


tengo entendido que para codificarlo esto sea hace con un case of, porque este es de multiple opciones, ahora el problema que tengo es al hora de utilizar este tipo de sentencia nose como puedo colocar la opcion,,porque genericamente el case es asi:
case opcion of
1:Sentencia1;
2:Sentencia2;

pero no se que colocar en la opcion, intente con el radiogroup.itemindex, pero nada.
esta es la codificacion que hice

Begin
Case RadioGroup1.itemindex of
'1' RadioButton1.checked v:=Strtofloat(ev.text);
n:=StrtoFloat(em.text);
t:=StrtoFloat(et.text);
r:=StrtoFloat(er.caption);
P:=n*r*t/v;
ep.text:=Floattostr(p);

no se si entienden, pero lo que quiero es que cuando se seleccione radiobutton1 (que es el calculo de presion), se ejecute las operaciones que estan ala derecha es decir v:=strtofloat........ hasta eptext:=Floattostr(p);
de la misma manera cuando se seleccione radiobutton2, que es el calculo de volumen, obviamente las operaciones que en este caso v seria lo que quiero hallar.y asi con los otros radiobutton

me pueden ayudar a codificar este problema??

GRacias

[rgstuamigo]

Puedes poner este codigo en el evento OnClick de tu componente TRadioGroup:

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
  0:begin
    ShowMessage('Se ha elegido el la opcion CERO de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
    //Código para la opcion CERO
    end;
  1:begin
    ShowMessage('Se ha elegido el la opcion UNO de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
    //Código para la opcion UNO
    end;
  2:begin
    ShowMessage('Se ha elegido el la opcion DOS de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
    //Código para la opcion DOS
    end;
  3:begin
    ShowMessage('Se ha elegido el la opcion  TRES de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
   //Código para la opcion TRES
    end;
  ... //etc,etc
 end;//fin de sentencia CASE

end;

Espero te sea de utilidad..
Saludos...