procedure TForm1.AbrirCupom1Click(Sender: TObject);
Var CPF : String ;
begin
    CPF := ' ' ;
    if InputQuery('Abre Cupom','Se necessário, Informe o CPF/CNPJ',CPF) then
            ACBrECF1.AbreCupom( CPF );
end;