No es un valor flotante para el campo código

[Kamael]

Tengo este codigo :

If TTable.Findkey(['codigo.Text']) Then
Edit2.Text := TTable.fields[1].AsString ;
If TTable.Findkey(['Nombre.Text']) Then
Edit1.Text := TTable.fields[0].AsString ;

Lo que quiero hacer es que al introducir el codigo, en el campo nombre me de el nombre(que lo hace). Pero al intentarlo al contrario,es decir, introducir el nombre y que me dé el codigo, me da el siguiente errror : No es un valor flotante para el campo codigo.
Campo codigo es nunmerico y el otro es alfanumerico.
Podeis ayudarme?