Formatação de Texto/ Acento em StringList

Bom dia a todos
Estou enviando um conteúdo gravado em uma TStringList por e-mail, mais ocorre que o texto onde tem acentuação vem um caractere especial, alguém saberia dizer como retira isso?

Agradeço!

sMensagem := TStringList.Create;
sMensagem.Add('--------------------------------------------------------------------------');
sMensagem.Add('Favor não responder.');
sMensagem.Add('Email automático do Sistema.');
sMensagem.Add('Conteúdo: Relatório ');
sMensagem.Add('--------------------------------------------------------------------------');
sMensagem.Add('Conteúdo do E-mail:');
sMensagem.Add('Trens se chocam na Grande São Paulo e deixam 24 feridos ' + #13 +
'Composição que manobrava no pátio da estação Francisco Mourato bateu em trem que estava parado na plataforma ');

sMensagem.Add('--------------------------------------------------------------------------');
sMensagem.Add(' Aviso: Esta mensagem, incluindo seus anexos, pode conter informações privilegiadas e/ou de caráter' + #13 +
' confidencial, não podendo ser retransmitida sem autorização do remetente. Se você não é o ' + #13 +
' destinatário ou pessoa autorizada a recebê-la, informamos que o seu uso, divulgação, cópia ou ' + #13 +
' arquivamento são proibidos. Portanto, se você recebeu esta mensagem por engano, por favor ' + #13 +
' nos informe respondendo imediatamente a este e-mail e delete o seu conteúdo. ');
sMensagem.Add('--------------------------------------------------------------------------');