PROJECT MENGURUTKAN BILANGAN DARI BESAR KE KECIL (DELPHI 7)

.........URUTIN BESAR-KECIL.........
BIL.PER=EDIT1, BIL2=EDIT2, BIL3=EDIT3

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z: integer ;
begin
  x:=strtoint(edit1.Text);
  y:=strtoint(edit2.Text);
  z:=strtoint(edit3.Text);

  if (x>y) and (y>z)then
  begin
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(x));
   end
   else

  if (x>y) and (y<z) and (x>z) then
  begin
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(x));
   end
   else

   if (y>x) and (x>z)then
  begin
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(y));
   end
   else

   if (x<y) and (y>z) and (z>x) then
  begin
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(y));
   end
   else

   if (z>y) and (y>x)then
  begin
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(z));
   end
   else

   if (z>y) and (y<x) and (x<z)then
  begin
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(z));
   end
   else

 showmessage('ada dua atau lebih bilangan yang sama')
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 listbox1.clear; edit1.Clear; edit2.Clear;edit3.clear;
end;

end.