[[Caral]]

Bueno si bajas el ejemplo veras que se enlaza a access.
Si no lo puedes bajar o si puedes veras que hay un codigo que filtra y otro que suma en dos query en el form2 asi:
Uso un combobox para esto:

Código Delphi [-]
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  ADOQuery2.Active:= False;
  ADOQuery2.SQL.Text:= 'SELECT * From TuTabla';
  ADOQuery2.SQL.Add('WHERE (((TuTabla.TuCampo)="'+Combobox1.Text+'"))');
  ADOQuery2.Active:= True;
  ADOQuery1.Active:= False;
  ADOQuery1.SQL.Text:= 'SELECT DISTINCTROW TuTabla.TuCampo1, Sum(TuTabla.TuCampo2) AS [Suma De tuCampo2],'+
                       ' Sum(TuTabla.TuCampo3) AS [Suma De TuCampo3]'+
                       ' FROM TuTabla '+
                       'WHERE (((TuTabla.TuCampo)="'+Combobox1.Text+'"))'+
                       'GROUP BY TuTabla.TuCampo1';
 ADOQuery1.Active:= True;
end;

Bueno mas claro imposible.
Espero te sirva.
Saludos