Построение графика ряда Фибоначчи

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart,
  VclTee.TeeGDIPlus;
 
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var f:array[1..n] of integer;
    x:array[1..n] of real;
    i:integer;
begin
f[1]:=1;
f[2]:=1;
for i:=3 to n do
f[i]:=f[i-1]+f[i-2];
Chart1.LeftAxis.Minimum:=0;
Chart1.LeftAxis.Maximum:=55;
Chart1.RightAxis.Minimum:=0;
Chart1.RightAxis.Maximum:=2;
Chart1.RightAxis.Increment:=0.1;
Series1.VertAxis:=aLeftAxis;
Chart1.Align:=alClient;
for i:=1 to n do
 begin
  Series1.AddXY(i,f[i],'',clRed);
 end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var f:array[1..n] of integer;
    x0,y0,i:integer;
    mx,my:real;
begin
f[1]:=1;
f[2]:=1;
for i:=3 to n do
f[i]:=f[i-1]+f[i-2];
x0:=50;
y0:=PaintBox1.Height-50;
mx:=(PaintBox1.Width-2*x0)/10;
my:=(PaintBox1.Height-100)/f[n];
with PaintBox1.Canvas do
 begin
  moveto(x0,y0);lineto(PaintBox1.Width-x0,y0);
  moveto(x0,y0);lineto(x0,50);
  for i:=1 to n do
   begin
    moveto(x0+round(i*mx),y0-3);
    lineto(x0+round(i*mx),y0+3);
    textout(x0+round(i*mx),y0+10,inttostr(i));
   end;
  for i:=1 to f[n] do
  if i mod 5=0 then
   begin
    moveto(x0-3,y0-round(i*my));
    lineto(x0+3,y0-round(i*my));
    textout(x0-25,y0-round(i*my),inttostr(i));
   end;
  textout(x0+5,y0+10,'0');
  pen.Color:=clRed;
  moveto(x0,y0);
  for i:=1 to n do
  lineto(x0+round(i*mx),y0-round(f[i]*my));
 end;
 
end;