[[Caral]]

Hola
Con esto se construye un procedimiento el cual lo puedo llamar en otras ocasione.

Código Delphi [-]
procedure TFOrdProd.ConstruyeFiltro;
begin
 if (CB_Buscar.Text <> 'Rut')  then
        begin
           QOrdProd.Filter := 'Soc_Rut = '+QuotedStr('%'+vBus.Text+'%');
           QOrdProd.Filtered := True;
        end
        else if (CBUsuarios.Text = 'Nombre')  then
             begin
          QOrdProd.Filter := 'Soc_Nombre = '+QuotedStr('%'+vBus.Text+'%');
          QOrdProd.Filtered := True;
             end
         else if (CBUsuarios.Text = 'Apellido')  then
             begin
         QOrdProd.Filter := 'Soc_Apellido = '+QuotedStr('%'+vBus.Text+'%');
          QOrdProd.Filtered := True;
           end;
end;

Ya sabes, solo una idea mas.
Saludos