no me funciona "Filter" en una consulta SQL

[darkbits]

un saludo al club toy trabajando en ID D6 + Interbase 6

ejecuto mi sql y los datos me muestra en un DBGrid1 hasta ahi todo bien

Código SQL [-]
 _DM.consulta3.SQL.Text:='SELECT * FROM ventas WHERE tipo_ventas=''CONTADO'' ORDER BY id_ventas ASC';
 _DM.consulta3.open;

luego tengo un Tedit llamado buscar.text para typear de acuerdo a lo que quiero buscar y que filtre y esto es lo que no me funciona.
NO me filtra nada y tampoco me da error.

hice la prueba en vez de utilizar _DM.consulta3 utilizo un _DM.table3 y si filtra perfectamente la tabla pero el SQL no me filtra
utilizo _DM.consulta3 porque tiene condicion WHERE tipo_ventas=''CONTADO''

Código Delphi [-]
var
   Filtroventas: String;
begin
   If (buscar.Text <> '') then
   begin
      _DM.consulta3.Filtered := False;
       Filtroventas := 'cliente_ventas Like ''%'+ buscar.Text + '%'''+' or '+'operador_ventas like ''%'+ buscar.Text + '%''' ;
      _DM.consulta3.Filter := Filtroventas;
      _DM.consulta3.Filtered := True
   end
   else _DM.consulta3.Filtered := False;

eh utilizado _DM.consulta3 con LIKE funciona pero no respeta la condicion WHERE tipo_ventas Like ''Contado''

Código SQL [-]
  _DM.consulta3.Close;
  _DM.consulta3.SQL.Text:= 'SELECT * FROM ventas WHERE tipo_ventas Like ''Contado'' and cliente_ventas Like ''%'+ buscar.Text + '%'''+' or '+'operador_ventas like ''%'+ buscar.Text + '%''';
  _DM.consulta3.Open;

por eso veo la mejor opcion es hacer funcionar la SQL con FILTER
y es ahi donde pido ayuda al foro para que me funcione

gracias