Error en busqueda.

[kwan]

Hola preguntaros de que forma puedo hacer lo siguiente,
tengo un form con una serie de DBEdit relacionado con
una base de datos en paradox, le he introducido un edit
en el cual quiero buscar los numeros de los socios ya
que cada socio tiene relacionado un numero, bueno creo
que lo hago bien pero tiene una pega y es la siguiente
cuando busco un numero inexistente me lo avisa con el
showMessage hasta aqui correcto, pero como lo hago para
que cuando el Edit no tenga nada o introduzca una letra
me vuelva el ShowMessage de introducir solo numeros ya
k si no me da error??

este es el codigo que meto en mi form no se si con Try
y except se puede por eso os pido ayuda.

procedure TForm1.edCodigoKeyPress(Sender:TObject; var key: Char);

Begin

If Key = #13 Then
Begin
Table1.First;
If Not Table1.Locate('N_CARNET',StrToInt(edCodigo.Text),[])Then
ShowMessage('Ese Nº Carnet no existe');
end;


Gracias.