[___toha___]

Я плохо знаю delphi, но может вот так сработает...

Код:

var
s:real;
begin
s:=0;

 
if RadioGroup1.ItemIndex = 2 then s:=s+1;
if RadioGroup2.ItemIndex = 3 then s:=s+1;
if RadioGroup3.ItemIndex = 0 then s:=s+1;



//s:=s*20%;
//А зачем умножать на 20% ???
//Если 20% = 0,2 то s:=s*(2/10);
//Если 20%, это 20 от s, то s:=s*(s/5);

Label1.Caption:= inttostr(s);

Хотя я может чего-то не понял..