Помогите реализовать метод анализа временных рядов в Delphi 7

[Evil_nero]

Помогите пожалуйста реализовать Прогноз анализа временных рядов Метод подвижного(скользящего) среднего на Delphi 7.
Есть немного исходника - Как мне сгладить график который я сделал методом скользящего среднего?

procedure TForm1.Button1Click(Sender: TObject);  
begin
  Series1.Clear;
  Series2.Clear;
  Randomize;
  setlength(x,21);
  for i := 0 to 20 do begin
    x[i]:= random(40);
    Series1.AddXY(i, x[i]);
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  J:integer;
  Y:array  of integer;
begin
  setlength(Y, 21);
  for j:=0 to 20 do begin
  Y[j]:=round((x[j]*3+x[j-1]*2+x[j-2])/6);
  Series2.AddXY(j, Y[j]);
  end;
end;

[ura_111]

Я Delphi не знаю, но я предполагаю что для сглаживания любого графика нужно взять больше точек на рассмотренным интервале.