FindNearest... se não encontrar registro dar mensagem

no onchange de um edit coloquei comforme abaixo para q com um leitor de código de barras eu consigue localizar um produto, até aí tudo bem, só qdo ele não encontra ele vai para o mais próximo direto só que além de ele ir para o mais próximo eu gostaria de uma mensagem tipo: ´Produto não encontrado!´, como eu faço para saber q não foi encontrado o produto e acrescentar essa mensagem qdo não encontrar o produto?


TbProdutos.IndexFieldNames := ´CodProduto´;
TbProdutos.Editkey;
TbProdutos.FindNearest([Edit1.Text]);
TbProdutos.Refresh;