Program Delphi Bilangan Fibonacci

procedure TBilFibonacci.Button1Click(Sender: TObject);
var  p,c,d,b,g,e : integer;
begin
  p:=StrToInt(edit1.Text);
  g:=0;
  c:=1;
  d:=0;
  e:=1;
  while d < p do
  begin
     g:=g+c;
     listbox1.Items.Add('bilangan fibonacci ke '+ IntToSTr(e)+' = '+IntToStr(g));
     c:=g-c;
     d:=d+1;
     e:=e+1;
  end;

end;

procedure TBilFibonacci.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
listbox1.Items.Clear;
end;

procedure TBilFibonacci.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-50 then
 label1.Left := 550;
end;

procedure TBilFibonacci.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilFibonacci.Hide;
end;