[ecfisa]

Hola joancmb.

Supongo que te refieres a un TRadioGroup, has escrito números en los strings de la propiedad Items y queres obtener la sumatoria.

Si es así, podrias hacer:

Código Delphi [-]
function SumarItemsRG(RG: TRadioGroup): Double;
var
  i: Integer;
begin
   Result:= 0;
   for i:= 0 to RG.Items.Count-1 do
     Result:= Result + StrToFloat(RG.Items[i]);
end;

LLamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= FloatToStr(SumarItemsRG(RadioGroup1));
end

Usé Double por que no sé que tipo estas empleando, pero si son valores enteros, puedes cambiar el tipo de retorno en la función SumarItemsRG.

Saludos.