Ошибка 'Out of memory'. График двух функций

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart,Math;
 
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Series2: TLineSeries;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,h,z,c,d,g,t:real;
 
 
implementation
 
{$R *.dfm}
function fun(x:real):real;
begin
fun:= (x*x*x)-9*(x*x)+26*(x)-24;
end;
function fun1(y:real):real;
begin
fun1:= (y*cos(y)-1) ;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
label3.Caption:='Введите количество точек'
else
label3.Caption:='Введите шаг';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,r:integer;
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'') and (Edit6.Text<>'') then
begin {проверка, если включен, значит - разбиение по точкам}
if CheckBox1.Checked then begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
i:=StrToInt(Edit3.Text); {i - количество точек разбиения}
h:=(b-a)/i; {вычисление шага h для аргумента функции}
c:=StrToFloat(Edit4.Text);
d:=StrToFloat(Edit5.Text);
r:=StrToInt(Edit6.Text);
g:=(c-d)/r;
end
else {иначе, если выключен}
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
h:=StrToFloat(Edit3.Text);
c:=StrToFloat(Edit4.Text);
d:=StrToFloat(Edit5.Text);
g:=StrToInt(Edit6.Text); {ввод шага h для аргумента функции}
end;
z:=a;
t:=c;
while z<=b do
with Series1 do
AddXY(z, fun(z), '',clTeeColor);
while t<=d do
with Series2 do
AddXY(t, fun(t), '',clTeeColor);
z:=z+h;
t:=t+g;
end;
end.

z:=a;
t:=c;
while z<=b do
 begin
  with Series1 do AddXY(z, fun(z), '',clTeeColor);
  z:=z+h;
 end;
while t<=d do
 begin
  with Series2 do AddXY(t, fun(t), '',clTeeColor);
  t:=t+g;
 end;