Слишком большое число. Результат возведения 48913^2 будет больше, чем можно поместить в целый тип. Можно так:
Код:
uses ... Math;
...
procedure TForm1.Button1Click(Sender: TObject);
var z: extended;
begin
z:=power(48913, 2);
showmessage(floattostr(z));
end;