Delphi 7. Условный оператор

[Юрий2009]

Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел А и B к переполнению (т.е. к результату большему, чем 32767). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел. Решите please задачу. Заранее спасибо!!!!

[MalCer]

var
  a,b,summa:integer;
begin
  a :=StrToInt(Edit1.Text);
  b :=StrToInt(Edit2.Text);
  summa :=a+b;
 if summa>32767 then
  showMessage('Сумма превышает 32767')
 else
  showMessage(IntToStr(summa));
end;