var
c, i, j: Integer;
r: Double;
begin
r:= 0;
c:= 0;
for i:= 0 to ComponentCount -1 do
if (Components[i] is TRadioGroup) and
(TRadioGroup(Components[i]).ItemIndex > -1) then
begin
r:= r + StrToFloat(TRadioGroup(Components[i]).Items[TRadioGroup(Components[i]).ItemIndex]);
Inc(c);
end;
if c > 0 then
ShowMessage(FormatFloat('#,##0.##', r/c));