Error en busqueda.

[javiermorales]

Buenos Días, podrías ponerlo entre:

try
    cadena := IntToStr(edCodigo.Text);
except
    ShowMessage('Debe introducir solo números');
    Exit;
end

//RESTO DE CODIGO

También podrías evaluarlo en el evento Onchange del Edit, realizando cada vez la comprobación anterior. es decir que todo lo que te mete es un número.

Espero que te sirva