disculpa javiermorales pero creo que la variable cadena tiene que ser integer y en el try se debe verificar si hay error en
try
Cadena := strtoint(edCodigo.Text);
Cadena : Integer; //o mayor si lo necesitas
luego el locate lo haces con edCodigo.Text y no con la variable Cadena.
|