Erro ao enviar boleto por e-mail

[tuliomac01]

Boa tarde,

Estou tendo um problema ao usar a função de enviar e-mail do boleto "EnviarEmail" o mesmo encontra-se na unit ACBRBoleto.

Na seguinte linha:
if Assigned(sMensagem) then
  begin
    MAIL.Body.Assign(sMensagem);
    MAIL.AltBody.Text := (StripHTML(sMensagem.Text));
  end;

"Cannot Assigner TStringList to StringList"

Então fui verificar o fonte como era feito o envio do e-mail da classe NFS-E que também utilizo e verifiquei que estava de outra forma, e então alterei para o seguinte:

if Assigned(sMensagem) then
  begin
    MAIL.Body.Text := sMensagem.Text;
    MAIL.AltBody.Text := (StripHTML(sMensagem.Text));
  end;

Estou fazendo algo de errado? Ou realmente há o erro se tiver podem corrigir? Segue a minha classe alterada em anexo..

ACBrBoleto.pas