Caracteres acentuados

Olá amigos,

Em minha aplicação existe uma rotina de envio de e-mails. Envio para diversos destinatários e tudo está funcionando bem, com uma exeção: [color=red:8c0ebffbd7]Quando escrevo o texto de envio uso acentuação normal más o destinatários não recebe as palavras acentuadas[/color:8c0ebffbd7]:

Escrevo: [color=green:8c0ebffbd7]Este é um teste de envio para diversos destinatários.[/color:8c0ebffbd7]

recebo: [color=red:8c0ebffbd7]Este ? um teste de envio para diversos destinat?rios.[/color:8c0ebffbd7]

Antes estava usando um componente TMemo que depois substituí por um componente TRichEdit na esperança de resolver más continuou o mesmo problema.

Uso no formulário o Componente TNMSMTP para o envio. Abaixo o código que estou usando:

LblInforma.Caption := ´Aguarde... conectando ao servidor remoto !´;
F_Mail.UpDate;

Conecta.Host := ´smtp.bhz.terra.com.br´;
Conecta.Port := 25;
Conecta.Connect;
if not Conecta.Connected then begin
raise Exception.Create(´Falha na conecção com servidor remoto !´);
end else begin
TabEletronica.First;
while not TabEletronica.eof do begin
with Conecta.PostMessage do begin
FromAddress := ´ajv@terra.com.br´;
FromName := ´Augusto´;
Subject := ´Envio de pacotes.´;
Body.Clear;
Body.Add(MemoTexto.Text);
ToAddress.Clear;
ToAddress.Add(TabEletronica.FieldByName(´Endereco´).AsString);
end;
LblInforma.Caption := ´Disparando: ´+TabEletronica.FieldByName(´Nome´).AsString;
F_Mail.UpDate;
Conecta.SendMail;
TabEletronica.Next;
end;
LblInforma.Caption := ´´;
F_Mail.UpDate;
Conecta.Disconnect;
end;
ShowMessage(´Pronto... envio concluído !´);

É isso... aguardo ajuda dos amigos !