Problema con archivos adjuntos y cuerpo de mail en indy

[razadi]

Foro, encontre la solución al hilo que inicie, y aqui lo pongo por si a alguien le sirve, saludos.

Código Delphi [-]
{Creo el mensaje del mail}
      lMessage := TIdMessage.Create(Self);
      try
        lMessage.From.Name := sSenNomMail;
        lMessage.From.Address := sSenderMail;
        with lMessage.Recipients.Add do begin
          Name := sNomCliente;
          Address := sMailCliente;
        end;
        {Aqui agrego las copias}
        with lMessage.CCList.Add do begin
          Name := 'Cliente';
          Address := '[email protected]';                                
        end;{del with}
        lMessage.Subject := sAsuntoMail;
        lMessage.Body.Text := '';
        {Creo el cuerpo en TXT}
        lTextPart := TIdText.Create(lMessage.MessageParts);
        lTextPart.Body.Text := 'Sistemas';
        lTextPart.ContentType := 'text/plain';
        {Aqui creo el cuerpo en HTML}
        lTextPart := TIdText.Create(lMessage.MessageParts);
        lTextPart.Body.Text := 'Aqui se pone el código en HTML
Puede poner, cualquier objeto
O puede incluir archivos HTML';
        lTextPart.ContentType := 'text/html';
        lMessage.Priority := mpNormal;
        {Creo el archivo adjunto}
        lAttachPart := TIdAttachment.Create(lMessage.MessageParts, sArchivoPDF);
        EnviarMail(lMessage);
      finally
        lMessage.Free;
      end;{del try..finally}
    end;{del for de las facturas seleccionadas}