Непонятная ошибка

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart;
 
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,h,z:real;
 
implementation
 
{$R *.dfm}
function fun1 (x:real):real;
begin
fun1:= 1/5*exp(x)-x-2;
end;
 
function fun2 (x:real):real;
begin
fun2:= 1/4*exp(2*x)-x-1;
end;
 
function fun3 (x:real):real;
begin
fun3:= 2*exp(x)-x-1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')then
begin
if CheckBox1.Checked then begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
i:=StrToInt(Edit3.Text);
h:=(b-a)/i;
end
else
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
h:=StrToFloat(Edit3.Text);
end;
z:=a;
while z<=b do
begin
Chart1.SeriesList.Series[1].AddXY(z,fun1(z),'',clteecolor);
Chart1.SeriesList.Series[2].AddXY(z,fun2(z),'',clteecolor);
Chart1.SeriesList.Series[3].AddXY(z,fun3(z),'',clteecolor);
z:=z+h;
end;
end
else
ShowMessage('Информация введена не полностью!!!');
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked then
label3.Caption:='Введите количество точек'
else
label3.Caption:='Введите шаг';
end;
 
end.