Hola ilichhernandez, prueba poniendo el Not del Like adelante.
Código Delphi
[-]
.............
dm.TBLingresos.Filter := '(Subpro =' +QuotedStr(label5.caption) +
') and (cliente = '+QuotedStr(label4.caption)+ ') and (Not bodega like '+QuotedStr('%VIRTUAL%')+')';
..............
Saluditos