InputBox
 

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

Puedes afrontar el problema de varias maneras, lo primero es que el código no debería de reventar :D , para eso usamos un bloque try ... except:

Código Delphi [-]
var:
  Usuario : integer;
begin
  try
    Usuario := StrtoInt(InputBox('Identificación', 'Ingrese su numero de usuario',''));
  except
    // Si llegamos aqui es que lago va mal
  end;
end;

O quiza usando TryStrToInt en ves de StrToInt:

Código Delphi [-]
var:
  Usuario : integer;
begin
  if not TryStrToInt(InputBox('Identificación', 'Ingrese su numero de usuario',''),Usuario) then
  begin
    // Si llegamos aqui es que lago va mal
  end;
end;

E Incluso podemos obstinarnos y no dejarle continuar si no lo hace bien:

Código Delphi [-]
var:
  Usuario : integer;
begin
  repeat until  TryStrToInt(InputBox('Identificación', 'Ingrese su numero de usuario',''),Usuario);
end;

Bueno, supongo que ya te vas haciendo una idea :)

Muchas Gracias , muy buena y completa la respuesta. :)