Delphi. Не могу найти ошибку.

[Армана]

Нужно вычислить значение полинома с рекурсией и без. Стыдно конечно, что в такую программу закралась ошибка, но не получается ее найти
Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:integer;
  polinom:Tpolinom;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit2.Text);
StringGrid1.ColCount:=n+1;
end;


procedure TForm1.Button2Click(Sender: TObject);
var x,y,z:extended;
    a:Pmas;
    i:integer;
begin

n:=strtoint(Edit2.Text);
x:=strtofloat(Edit1.Text);

GetMem(a,n*sizeof(integer));

for i:=0 to n do

begin
a[i]:=strtoint(StringGrid1.Cells[i,0]);
end;

polinom:=Tpolinom.create;
z:=tpolinom.srec(n,x,a);
y:=tpolinom.snotrec(x,n,a);
Memo1.Lines.Add('P=' + floattostr(y));
Memo2.Lines.Add('P='+floattostr(z));
polinom.free;  
FreeMem(a,n*sizeof(integer));

end;

end.

unit Unit2;

interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, math, StdCtrls, Grids;
type      Tmas=array [0..10] of integer;
          Pmas=^Tmas;
 Tpolinom=class(TObject)
class function srec( n:integer; x:extended;  a:Pmas):extended; virtual;
class function snotrec(x:extended; n:integer;  a:Pmas):extended; virtual;
  end;
implementation
class function Tpolinom.srec;
begin
if n = 0 then  result:=a[0]
else result:=srec(n-1,x,a)+power(x,n)*a[n] ;

end;


class function Tpolinom.snotrec;
var k:integer;
    p:extended;
begin
p:=a[n];
for k:=n-1 downto 0 do
p:=a[k]+ x*p;
result:=p;
end;

end.

From Stilet: Уважаемая Армана, просьба постить код с соответствующим тегом ( кнопка которого - #)
И еще: В следующий раз просьба прикреплять проект в архиве если код выкладываемый требует длительного копипасте в силу своих технических нагрузок

[Армана]

Если не трудно, найдите пожалуйста ошибку. Мне завтра столько лаб нужно сдать, что я уже в собственном коду не разбираюсь

[Stilet]

Я что-то не понял а СтрингГрид самому заполнять?
Приложи ВЕСЬ проект с исходными данными дабы не набирать то чего не знаеш.

[Армана]

StringGrid заполнять самому. Я обычно ввожу 1,2,3... и так далее в зависимости от размерности массива. Программа работает, но только когда размерность 2 или 5. В остальных случаях выдает ошибку. X тоже любое. Я брала 2. Не могу понять в чем дело. Если делать одним способом и без рекурсии, то работает правильно. Только мне нужно двумя.

[Армана]

Ну вот и сама исправила ошибку. Переписала заново и все работает
Извините за беспокойство.