!!Problema de búsqueda en un DBGrid!!

[rgstuamigo]

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...