procedure TForm1.FecharCupom1Click(Sender: TObject);
Var Obs : String ;
begin
    Obs := 'Componentes ACBr|http://acbr.sourceforge.net' ;
    if InputQuery('Fechar Cupom',
                           'Se Necessário digite alguma Observaçao (até 8 linhas)'+#10+
                           'O sinal | (pipe) será convertido para #10 (quebra de linha)' ,
                            Obs ) then
        begin
            Obs := StringReplace(Obs,'|',#10,[rfReplaceAll,rfIgnoreCase]) ;
            ACBrECF1.FechaCupom( Obs );
        end ;
end;