Hola wibol83,
¡Bienvenido a DelphiAccess!
He editado tu mensaje para darle el formato adecuado al código y ponerle un título más apropiado.
Como eres nuevo te pido que leas las
normas, las
sugerencias para cuando postees, y el
uso de etiquetas para cuando debas colocar código y darle el formato correspondiente.
Sobre el problema como ya lo han dicho los compañeros, se produce debido a que StrToInt() lanza la excepción informando que no es posible convertir el string en un número. En algún lado de la variable cod que pasas como parámetro hay un carácter ilegal... para ser exactos una 'a'.
El texto del error es bien claro, in english of course

, al informar de que el carácter 'a' no es un número entero válido... Debes controlar lo que el usuario pase, o bien capturar las posibles excepciones ya sea con un try-except/try-finally y operar en consecuencia o emplear alguna función análoga que haga parte del trabajo como TryStrToInt
Saludos,