программа в Delphi

[aiktz]

помогите устранить ошибку пожалуйста.
Как вывести в поле memo в один столбец x и в другой столбец y?

private
    { Private declarations }
  public
    { Public declarations }
  end;

 function f(x:real):real;
var
  Form1: TForm1;

   x,y,h,S,n,a,b,i,P:real;


implementation

{$R *.dfm}

function f(x:real):real;
begin
f:=sqrt(0.8*sqr(x)+1)/x+sqrt(1.5*sqr(x)+2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
n:=strtoint(Edit3.Text);
P:=strtoint(Edit5.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
h:=(b-a)/n;
P:=0.062;
S:=0;
for i:=1 to n do
S:=S+P[i]*f(a+i*h);

y:=S*(b-a);

memo1.Lines.Add(y);


end;

end.

[kitty19]

Итак. P: real, то есть действительное число. А потом оно как то превращается в массив и идет обращение к его элементам P[i]. Мистика...

[RomiKon]

Эта строчка тоже мистична=) memo1.Lines.Add(y);