Даны два числа, вывести на экран квадрат большего из них

Программа написана на языке Delphi. Ввод двух чисел в текстовые окна программы и вывод квадрата большего числа, после нажатия кнопки.

var
Form1: TForm1;
r , a:integer;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:= strtoint( Edit1.Text );
r:= strtoint( Edit2.Text );
if (a-r) > 0 then
begin

Label1.caption:= inttostr(a * a); //вывод квадрата числа на экран.

end

else

begin

Label1.caption:= inttostr(r * r); //вывод квадрата числа на экран.

end;
end;
end.