[Karsh]

Сообщение от Act

Код:

Try
  X:= A + B;
  ShowMessage(IntToStr(X));
 Except
  ShowMessage('Overflow');
 end;

Можно так попробовать

Этот код не имеет смысла, т.к. IntToStr(X), в данном случае, не вызовет события Except.

Как уже говорилось, нужно использовать Int64:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: Int64;
  A, B: Integer;
begin
  X:= A + B;
  if ABS(x) > MaxInt then ShowMessage('Overflow') else ShowMessage('Ok');
end;