Program Delphi Bilangan Prima

procedure TBilPrima.Button1Click(Sender: TObject);

var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';

end;

procedure TBilPrima.Button2Click(Sender: TObject);
var i,a,b,c,d:integer;
            p:boolean;
begin
    a:=StrToInt(Edit1.Text);
    For b:=2 to 1000 do
    begin
    i:=2;
    p:=true;
    while(i<=b-1)and p do
       begin
       c:=b mod i;
       if c=0 then p:=false;
       i:=i+1;
       end;
    if Listbox1.Items.count<a then
    if p=true then
    Listbox1.Items.Add('Bilangan Prima ke-'+IntToStr(Listbox1.Items.count+1)+'='+IntToStr(b));
    end;

end;

procedure TBilPrima.Button3Click(Sender: TObject);
var
a,b,j,k,l : Integer;
BEGIN
b := StrToInt(Edit3.Text);
for a := StrToInt(Edit1.Text) to b do
  begin
    j:=0;
      for k:=1 to a do
        begin
          l:= a mod k;
          if l=0 then j:=j+1
        end;
      if j=2 then Listbox1.items.Add(IntToStr(a));
  end;


end;

procedure TBilPrima.Button4Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
listbox1.Items.clear;
end;

procedure TBilPrima.Button5Click(Sender: TObject);
begin
listbox1.items.clear;
end;

procedure TBilPrima.Button6Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilPrima.Hide;
end;

procedure TBilPrima.Panel1Click(Sender: TObject);
var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';

end;


procedure TBilPrima.Panel2Click(Sender: TObject);
var i,a,b,c,d:integer;
            p:boolean;
begin
    a:=StrToInt(Edit1.Text);
    For b:=2 to 1000 do
    begin
    i:=2;
    p:=true;
    while(i<=b-1)and p do
       begin
       c:=b mod i;
       if c=0 then p:=false;
       i:=i+1;
       end;
    if Listbox1.Items.count<a then
    if p=true then
    Listbox1.Items.Add('Bilangan Prima ke-'+IntToStr(Listbox1.Items.count+1)+'='+IntToStr(b));
    end;


end;

procedure TBilPrima.Panel3Click(Sender: TObject);
var
a,b,j,k,l : Integer;
BEGIN
b := StrToInt(Edit3.Text);
for a := StrToInt(Edit1.Text) to b do
  begin
    j:=0;
      for k:=1 to a do
        begin
          l:= a mod k;
          if l=0 then j:=j+1
        end;
      if j=2 then Listbox1.items.Add(IntToStr(a));
  end;


end;

procedure TBilPrima.Panel4Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
listbox1.Items.clear;

end;

procedure TBilPrima.Panel5Click(Sender: TObject);
begin
listbox1.items.clear;

end;

procedure TBilPrima.Panel6Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilPrima.Hide;

end;

end.