Error en busqueda.

[Rudi]

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.