Program Delphi Bilangan Dekomposisi

procedure TBilDekomposisi.Button1Click(Sender: TObject);
var i,a,b:integer;
        k:real;
begin
    a:=StrToInt(Edit1.Text);
    i:=2;
    b:=a;
    while i<=a do
    begin
    if b mod i=0
    then
    begin
    Listbox1.Items.Add(IntToStr(i));
    k:=b/i;
    b:=trunc(k);
    end
    else i:=1+i;
    end;


end;

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

procedure TBilDekomposisi.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilDekomposisi.Hide;
end;