[Casimiro Noteví]

Creo que falta un punto y coma en un par de líneas;

Código Delphi [-]
procedure TForm1.ButtonFilterClick(Sender: TObject);
begin
   FilterData('DIRECCION', Edit1.Text);  //   <--------------
end;

(* Elimina cualquier filtro prefijado *)
procedure TForm1.btnFilterOffClick(Sender: TObject);
begin
  ADOTable1.Filtered:= False;  //   <--------------
end;

Por cierto, recuerda poner los tags al código fuente, ejemplo:



Gracias