Procedure TForm1.CancelaCupom1Click(Sender: TObject);
begin
    ACBrECF1.Desativar ;
end;