Por qué no intentas esto, no se si funcionará, pero vale ahi va:
Código Delphi
[-]procedure TdmReportes.BusFac(Factura: String);
var
Filtro : String;
begin
If (Factura.Text <> '') then
begin
qryFact.Filtered := False;
Filtro := 'Factura Like ''%' +Factura.Text+ '%''';
qryFact.Filter := Filtro;
qryFact.Filtered := True;
end
else qryFact.Filtered := False;
end;
Concuerdo con delphius, por que no posteas la Sentencia SQL del query?
Saludos.