[Страдалецъ]

Может просто функцию сделать и всех делов?

Код:

function ProstoFunction(Idx1,Idx2,Idx4,Idx5,Idx6,Idx7: Integer): Boolean;
begin
 Result := (RadioGroup1.ItemIndex=Idx1)  and (RadioGroup2.ItemIndex=Idx2) and
    (RadioGroup4.ItemIndex=Idx4) and (RadioGroup5.ItemIndex=Idx5) and
    (RadioGroup6.ItemIndex=Idx6) and (RadioGroup7.ItemIndex=Idx7) 
end;

Тогда условия запишутся так:

Код:

If ProstoFunction(0,5,0,0,4,3) then a := 2.8;
If ProstoFunction(0,5,0,0,7,3) then a := 3.7;
If ProstoFunction(0,5,0,2,4,3) then a := 3.3;
If ProstoFunction(0,5,0,2,7,3) then a := 4.3;
if ProstoFunction(0,5,1,0,5,0) then a := 20.7;
if ProstoFunction(0,0,0,1,4,3) then a := 1;
if ProstoFunction(0,0,0,2,4,3) then a := 0.7;
if ProstoFunction(0,6,0,1,7,3) then a := 5.4;
if ProstoFunction(0,6,0,2,7,3) then a := 3.8;

А вообще все это можно в матрицу прописать и тогда в цикле можно будет получать нужное значение а