z:=x+y; if ( (x>0) and (y>0) and (z<0) ) or ( (x<0) and (y<0) and (z>0) )then ShowMessage('Overflow') else ShowMessage(IntToStr(z));