Dbgrid Filter edit lento

[shoulder]

Hola lo hago desde delphi7 base mysql, hago un filtro en un edit funciona rapido pero de repente (a veces) cuando empiezo a borrar un apellido Ejemplo: Garcia, borro la a y me trae todos los semejantes por cada letra que borro me tarda muchisimo. No se que puede ser. Gracias.

Código Delphi [-]
procedure TForm1.Edit4Change(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Filtered:= False;
DBGrid1.DataSource.DataSet.Filter:=  'apellido  like'+ QuotedStr('*'+trim(EDIT4.Text)+ '*');
DBGrid1.DataSource.DataSet.Filtered:= True;
end;