procedure TForm1.Button1OnClick(Sender: TObject);
beginifnot Query1.Locate('CODIGO', teCodigo.Text, []) Then
ShowMessage('No se encotró ningún registro con el código ingresado');
end;
ok entonces trabaja lo mismo si busco la descripcion , aunque no sea llave?