如何在delphi中实现任意输入三个数，从大到小排序

前几天看了你问题,现在自己找到了一个解决方法,有点烦:
var a, b, c, e, f : integer;
begin
a := strtoint(edit1.Text);
b := strtoint(edit2.Text);
c := StrtoInt(edit3.Text);
e := Max(a, b);
f := Max(e, c);
showmessage(inttostr(f));
end;