procedure TForm1.Sub1Click(Sender: TObject);
Var Desc : Double ;
begin
    Desc := 0 ;
    if InputQuery('Subtotaliza Cupom',
                           'Digite Valor negativo para Desconto'+#10+
                           'ou Valor Positivo para Acrescimo' , Desc ) then
           ACBrECF1.SubtotalizaCupom( Desc );
end;