Модуль: SysUtils

Описание
Функция преобразовывает строковое представление десятичного или шестнадцатеричного целого числа в значение типа Integer. Если исходная строка содержит запись числа в недопустимом виде, то функция возвращает значение, указанное в параметре Default.

Пример
var
   X: Integer;
begin
   X:= StrToIntDef( Edit1.text, -1);
   If X=-1 then
       MessageDlg( 'Ошибка ввода!', mtInformation, [mbOk], 0);
end;