табулирование функции

[Alexandr000006]

Требуется реализовать табулирование функции y=x*x+1,как приложение c формой и построить таблицу если заданы:
а)Xn-начальное значение Dx-шаг,N-количество шагов
б)М значений X
Первое приложение я сделал,но оно запускается и тут же пропадает
вот код

unit Unit1;

interface


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

type
  w=array[1..10] of real;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  y,x:w;
  xn,dx:Real;
  n:Integer;
  sx,sy:string;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
xn:=StrToFloat(Edit1.Text);
dx:=StrToFloat(Edit2.Text);
n:=StrToInt(Edit3.Text);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=3;
x[1]:=xn;
y[1]:=x[1]*x[1]+1;
for k:=2 to n do
begin
x[k]:=x[k-1]+dx;
y[k]:=x[k]*x[k]+1;
end;
StringGrid1.Cells[0,0]:='n';
StringGrid1.Cells[1,0]:='x';
StringGrid1.Cells[2,0]:='y';
for k:=1 to n do
begin
StringGrid1.Cells[0,k]:=' '+IntToStr(k);
sx:=FloatToStr(x[k]);
StringGrid1.Cells[1,k]:=sx;
sy:=FloatToStr(y[k]);
StringGrid1.Cells[2,k]:=sy;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var k:integer;
begin
Edit1.Clear;
Edit3.Clear;
Edit2.Clear;
Edit1.SetFocus;
for k:=1 to n do
begin
StringGrid1.Cells[0,k]:='';
StringGrid1.Cells[1,k]:='';
StringGrid1.Cells[2,k]:='';
end;
end;

end.

а со второй вообще беда у меня нет идей как это сделать!Помогите кто может