Bueno.. me parece raro ese error..
...pareciera que algo has hecho mal
; de todas formas como digiste que ese código está dentro del evento OnChange de edit pues aquí te paso el código completo de cómo debería estar en tal evento más o menos:
Código Delphi
[-]procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
DataModule1.ADOcompra.Filter:='Nombredelconprador Like '''+ Edit1.Text +'*''';
DataModule1.ADOcompra.Filtered:=True;
end
else DataModule1.ADOcompra.Filtered:=False;
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7