[nixon232]

Код:

begin
  Caption := '=';
  try
    i := StrToInt(Caption);
  except on E: EConvertError do
    begin
      MessageDlg(PChar('Внимание, вы ввели неправильные - значения'), mtError, mbOKCancel, 0);
    end;
  end;

end;