[NumLock]

можно сделать так же как в калькуляторе с 2-мя Edit'ами: переопределить обработчик OnException у Application. когда Exception == EOverflow выводить свое сообщение:

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure ExceptionEvent(Sender: TObject; E: Exception);
...
procedure TForm1.ExceptionEvent(Sender: TObject; E: Exception);
begin
  if E is EOverflow then ShowMessage('Слишком большое число!')
  else ShowMessage(E.Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  d: Double;
begin
  Application.OnException:=ExceptionEvent;
  d:=9.9;
  while true do d:=d*d;
end;