Buscar por:

Somar valor da tabela sem a utilização do ( WHILE tabela.EOF), mais rapido.

Código

Procedure TfrmPedido.valor;

var

 somar : string;

begin

  somar :=  'SELECT SUM(preco*quantidade) as valor FROM `entregasitens` where entregasitens.`pedidos_mesas_idmesas`='+QuotedStr(dmCadastro.sqlMesaidmesas.AsString)+' and entregasitens.`controle` =''S''';

  dmCadastro.sqlListPedido.Close;

  dmCadastro.sqlListPedido.DataSet.CommandText := somar;

  dmCadastro.sqlListPedido.Open;

  edtValor1.Text := FormatFloat('###,###,##0.00', dmCadastro.sqlListPedidovalor.AsFloat);

end;