Что не так в коде?

procedure TGrafic.ГиперболаClick(Sender: TObject);
Var
a,b,c,x,y,xn,xk:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
xn:=StrToFloat(Edit4.Text);
xk:=StrToFloat(Edit5.Text);
Series1.Clear;
x:=xn;
while x<=xk do
begin
y:= Sqr(a*a+((a*a*x*x)/(b*b)));
Series1.AddXY(x,y,'',clTeeColor);
x:=x+0.001;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x:double;
begin
x:=-5;
while x<=5 do
 begin
  if abs(x)>0.1 then Series1.AddXY(x,1/x,'',clBlue)//или а/х
  else Series1.AddNullXY(x,x,'');
  x:=x+0.01;
 end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var p,x,y1,y2:double;
begin
p:=2.5;
x:=0;
while x<=10 do
 begin
  y1:=sqrt(2*p*x);
  y2:=-sqrt(2*p*x);
  Series1.AddXY(x,y1,'',clBlue);
  Series2.AddXY(x,y2,'',clBlue);
  x:=x+0.01;
 end;
end;
 
end.