[menavas]

buenas, yo utilizaria un bloque try... except

Código Delphi [-]
 try
  strtoint(key)
except
 //Colocas tu codigo para manejar la excepcion
end;

saludos!