[[seoane]]

Puedes afrontar el problema de varias maneras, lo primero es que el código no debería de reventar , 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