в чем ошибка???

[Cnfczy]

unit Unit000;

interface

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

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Button1: TButton;
MainMenu1: TMainMenu;
File1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
xn,xk,h:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:real;
begin
xn:=-2;
xk:=9;
h:=1;
x:=xn;
while x<=xk do

begin
if x>7 then y:=1/(2-x)
else
if x<=0
then y:=x*x*x-3*sin(x)*sin(x)*sin(x)
else
y:=1/(sqrt(2-x));
x:=x+h;
end;
memo1.Lines.Add(floattostr(y));
end;


procedure TForm1.N1Click(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;

end.

[mihali4]

Ну вот, закрыли... Почему ???
Придется прочесть правила раздела !