[[BlueSteel]]

Encontre esta opcion, que la puede ocupar con 3 edit y 1 query.. y seria algo asi

Edit1.Text -> Cod Vendedor
Edit2.Text -> Total de Ventas
Edit3.Text -> Nº de Ventas

Código SQL [-]
     Query.SQL.Clear;
     Query.SQL.Add('Select Sum (Total_Vta), COUNT(*) From Ventas');
     Query.SQL.Add('Where Cod_Vendedor=:Var1');
     Query.Params[0].AsString := Edit.Text;
     Query.Open;
     Query.First;

Código Delphi [-]
  Edit2.Text := IntToStr(Query['F_1']);     // Si el valor es te tipo Integer pones IntToStr, y es de tipo Float pones FloatToStr
  Edit3.Text := IntToStr(Query['COUNT']);

ya y con eso deberias tener...