Consulta por nome com adoConnection e Adotable em delphi 7

Tenho uma aplicação em que uso em todos formulário para fazer suas conexões
ADOConnection e ADOTable com Access.
Estou tendando fazer uma consulta por nome mas o codigo que estou usando não esta funcionando

"procedure TFrmconsultafuncionario.btnbuscaconsultafuncionarioClick(
Sender: TObject);
begin
If Not ADOTableconsultafuncionario.FindKey ([Edit1]).Text then
ShowMessage('Informação não Encontrada');

end;"

quem puder me ajuda agradeço