[kalinochkind]

Вычисления с плавающей точкой неточные, отсюда и ошибка.

Код:

procedure count;
begin
if Form1.RadioGroup1.ItemIndex=0
then Form1.Memo1.Lines.Append(floattostrf(SrArifm,fffixed,6,3))
else Form1.Memo1.Lines.Append(floattostrf(SrGeom,fffixed,6,3))
end;