[dec]

Hola,

Algo así debería irte bien:

Código Delphi [-]
 var
   i: integer;
 begin
   try
     i := StrToInt(Edit1.Text);
   except
     on E: EConvertError do
       ShowMessage('Error: ' + E.Message);
   end;
 end;