Вернуть из функции массив

[М@лышка]

Всем приветики. Вот нашла в инете следующую функцию:

function function CalcTable(F:fun; Xn,Xk:extended; n:integer; Index:Byte):TStringList;
var x,y,h,a,Sum:extended;
    c,k:integer;
begin
  Result:=TStringList.Create;
  h:=abs((Xn-Xk)/10);
  c:=-1;
  x:=Xn;
  repeat
    a:=x; Sum:=x;
    y:=F(x);
    for k:=1 to n do
      begin
        case Index of
          0:a:=c*a*sqr(x)/(2*k*(2*k+1));
          1:a:=a*sqr(x)/(2*k*(2*k+1));
          2:a:=c*a*sqr(x)*(2*k-1)/(2*k+1);
        end;
        Sum:=Sum+a;
      end;
    Result.Add('При x='+FloatToStrF(x,fffixed,6,2)+
    '   Сумма '+FloatToStrF(Sum,fffixed,10,5)+
    '   Значение функции '+FloatToStrF(y,fffixed,10,5));
    x:=x+h;
  until x>Xk;
end;

Подскажите пожалуйста, как можно вернуть из функции номер выбранного элемента в RadioGroup, при этом, насколько я поняла эта функция должна вызываться из модуля.. Т.е. не нужно работать с TStringList