Program Delphi Untuk Mengurutkan 3 Buah Bilangan

procedure TMengurutkan.Button1Click(Sender: TObject);
var
  a,b,c:real;
  hasil:string;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=strtoint(edit3.Text);
  if (a>=b) and (b>=c) then
  hasil:=floattostr(a)+','+floattostr(b)+','+floattostr(c) else
  if (a>=c) and (c>=b) then
  hasil:=floattostr(a)+','+floattostr(c)+','+floattostr(b) else
  if (b>=c) and (c>=a) then
  hasil:=floattostr(b)+','+floattostr(c)+','+floattostr(a) else
  if (b>=a) and (a>=c) then
  hasil:=floattostr(b)+','+floattostr(a)+','+floattostr(c) else
  if (c>=a) and (a>=b) then
  hasil:=floattostr(c)+','+floattostr(a)+','+floattostr(b) else
  if (c>=b) and (b>=a) then
  hasil:=floattostr(c)+','+floattostr(b)+','+floattostr(a);
  edit4.Text:=hasil;


end;

procedure TMengurutkan.Button2Click(Sender: TObject);
begin
EDIT1.TEXT:=' ';
EDIT2.TEXT:=' ';
EDIT3.TEXT:=' ';
EDIT4.TEXT:=' ';
end;

procedure TMengurutkan.Timer1Timer(Sender: TObject);
begin
label4.Left:=label4.Left-30;
 if  label4.Left<=-500 then
 label4.Left := 550;
end;

procedure TMengurutkan.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
Mengurutkan.Hide;
end;

end.