Hola, miren no se nada de Interbase o Firebird, pero no deberia de ser asi?:
Código Delphi
[-] procedure TdmReportes.BusFac(Factura: String);
Begin
with qryBusFac do
begin
Close;
ParamByName('PMBusFac').AsString := '%'+Factura.Text+'%';
Open;
end;
end;
Digo yo, no sé,
Saludos.