Bilangan Fibonacci ke-N pertama

procedure TForm6.Button1Click(Sender: TObject);
var a,b,c,n,i : integer;
begin
n := strtoint (edit1.Text);
a := 1;
b := 1 ;
c := a + b;
 if n >= 1 then listbox1.items.add ('bilangan fibonacci ke 1 adalah ' + inttostr(a));
 if n >= 2 then listbox1.items.add ('bilangan fibonacci ke 2 adalah ' + inttostr(b));
 if n >= 3 then listbox1.items.add ('bilangan fibonacci ke 3 adalah ' + inttostr(c));


for i:= 1 to n -3 do
 begin a:= b ;
    b:= c  ;
    c:= a+b;
     listbox1.items.add ('bilangan fibonacci ke ' + inttostr(i+3)+ ' adalah ' + inttostr(c));
    end;
end;