Retornar mensagem de item não existente banco de dados

Bom dia.

Salve, salve galera do forum, estou terminando um catalogo de peças que estou desenvolvendo em delphi e falta somente duas coisas que preciso fazer e não estou conseguindo, por isso venho pedir a ajuda de vocês.

1º Tenho um edit1 onde o individuo vai digitar o codigo e ai se tiver cadastro do item ele será selecionado na dbgrid1, quero saber como faço para retornar alguma mensagem (exe: Produto não cadastrado) caso o codigo procurado não exista no BD. Eu estou usando o código abaixo no botão de pesquisa:

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Locate( 'original',Edit1.Text, [loCaseInsensitive, loPartialKey] );

end;

2º Como faço para marcar (mudar a cor) da linha do dbgrid do item pesquisado no edit1.