max和min在delphi的用法和程序讲解

求两值最大值和最小值
procedure TXiaoshouglf.Button1Click(Sender: TObject);
var x,y:integer;

begin
inherited;
x:=10;
y:=2;
edit1.Text := inttostr(max(x,y));
edit2.Text :=inttostr(min(x,y));
end;

要引用uses Math;