[drmetall]

Столкнулся с такой ошибкой оператора sqr:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c:integer;
begin
 a:=strtoint(edit1.Text);
 b:=strtoint(edit2.Text);
 c:=sqr(a-b);
 label1.Caption:=inttostr(c);
end;

Если одно из чисел больше 46340, то начинает выдавать не квадрат, а рандом какой-то. Например, на 48913 выдает -1902485727.

С чем такое может быть связано?