procedure TForm1.bEnviarClick(Sender: TObject);
var
  Dir, ArqXML: String;
  MS: TMemoryStream;
  P, N: Integer;
begin
  mLog.Lines.Clear;
  ProgressBar1.Position := 1;
 
  Dir := ExtractFilePath(ParamStr(0));
 
  P := pos(' - ', edSubject.Text);
  if P > 0 then
  begin
    N := StrToIntDef( copy(edSubject.Text, P+3, 5), 0) + 1;
    edSubject.Text := copy(edSubject.Text, 1, P+2) + IntToStr(N);
  end;
 
  ACBrMail1.Clear;
  ACBrMail1.IsHTML := cbUsarHTML.Checked;
  ACBrMail1.Subject := edSubject.Text;
 
  AjustaParametrosDeEnvio;
 
  // mensagem principal do e-mail. pode ser html ou texto puro
  if cbUsarTXT.Checked then
    ACBrMail1.AltBody.Assign( mAltBody.Lines );
 
  if cbUsarHTML.Checked then
    ACBrMail1.Body.Assign( mBody.Lines );
 
  if cbUsarHTML.Checked and cbAddImgHTML.Checked then
  begin
    // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body;
    if Pos( 'cid:LogoACBr', ACBrMail1.Body.Text ) > 0 then
      ACBrMail1.AddAttachment(Dir+'acbr_logo2.png', 'LogoACBr');
  end;
 
  if cbAddImgAtt.Checked then
    ACBrMail1.AddAttachment(Dir+'acbr_logo.jpg');
 
  if cbAddPDF.Checked then
    ACBrMail1.AddAttachment(Dir+'35150905481336000137550010000111291000111298-nfe.pdf', 'DANFE');
 
  if cbAddXML.Checked then
  begin
    MS := TMemoryStream.Create;
    try
      ArqXML := '35150905481336000137550010000111291000111298-nfe.xml';
      MS.LoadFromFile(Dir + ArqXML);
      ACBrMail1.AddAttachment(MS, ArqXML);
    finally
      MS.Free;
    end;
  end;
 
  ACBrMail1.Send( cbUsarThread.Checked );
end;