Si como es lógico el campo por el que quieres buscar está indexado puedes poner un Tedit
Código Delphi
[-]
procedure TfrConAgenda.edBuscarChange(Sender: TObject);
begin
Agenda.FindNearest([edbuscar.text]);
end;
Por cierto, he tenido que eliminar 2 hilos, porque habías hecho la pregunta tres veces, solamente debe de preguntarse una vez.
Un Saludo.