[roamer]

Там какой-то кривой пример.
Примерно так:

Код:

Uses
  ...,
  math,
  ...;

procedure TForm1.Button1Click(Sender: TObject);
Var
  Data : array[1..100] of double;
  Mean, StdDev: Extended;
  R : real;
  i : integer;
begin
  //----------------
  //тестовый набор
  randomize;
  for i:=1 to 100 do
   begin
     R:=random(100);
     Data[i]:=R;
  end;
  //----------------

  MeanAndStdDev(Data, Mean, StdDev); //вычисление

  ShowMessage('Мат.ожидание='+FloatToStr(Mean)+'  Средн.кв.отклонение='+FloatToStr(StdDev)); //смотрим результат

end;

Описание функции:
http://www.tspu.tula.ru/ivt/old_site...2_web/566.html