Программа Последовательность Фибоначчи с интерфейсом

program Fibonacci;
var
a,b,c,i,n:longint;
begin
write('Введите количество элементов в последовательности, n=');
readln(n);
a:=0;
write(a,' | ');
b:=1;
write(b,' | ');
for i:=3 to n do
begin
write(a+b,' | ');
c:=b;
b:=a+b;
a:=c;
end;
end.

Unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms;
 
type
  Form1 = class(Form)
    procedure button1_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    button1: Button;
    textBox1: TextBox;
    textBox2: TextBox;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
implementation
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var n,a,b,c:integer;
begin
n:=strtoint(TextBox1.Text);
TextBox2.ScrollBars:=ScrollBars.Horizontal;
a:=0;
TextBox2.Text:=inttostr(a)+' |';
b:=1;
TextBox2.ScrollBars:=ScrollBars.Horizontal;
TextBox2.Text:=TextBox2.Text+' '+inttostr(b)+' |';
for var i:=3 to n do
  begin
   if i<n then TextBox2.Text:=TextBox2.Text+' '+inttostr(a+b)+' |'
   else TextBox2.Text:=TextBox2.Text+' '+inttostr(b);
   c:=b;
   b:=a+b;
   a:=c;
  end; 
end;
 
end.