InputBox

[fmtidona]

Hola! como hago para que no me reviente el codigo cuando quiero que me ingresen un numero y me ponen un string
Gracias

  
var:
usuario : integer;

usuario := strtoint (InputBox('Identificación', 'Ingrese su numero de usuario',''));