Hola
Coloca un tcombobox en el from, en este pon:
S
N
En el evento onchange del tcombobox pon:
Código Delphi
[-]
If tcombobox1.Text = 'S' then
TQuery1.sql.add(' SELECT Total FROM Ventas WHERE Mayoreo = '+tcombobox1+'' else
TQuery1.sql.add(' SELECT Total FROM Ventas WHERE Mayoreo = '+tcombobox1+'';
con esto se define que buscar S o N sin modificar el sql para cada dato, esta hecho rapido y sin probar Espero te de una idea general.
Saludos