[delphi-br] Email enviado com Atraso - Indy

[rmpena25]

Pessoal,

Estou usando o código abaixo para enviar email e os emails estão chegando com 3 
horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha 
===>IdMessage.Date := now; e não resolveu.
 
Alguem tem alguma dica?

Segue o código que uso no envio.

procedure TSendEmail.Execute;
var
  SMTP: TIdSMTP;
  IdMessage: TIdMessage;
begin
  SMTP := TIdSMTP.Create(nil);
  IdMessage := TIdMessage.Create(nil);
  try
    SMTP.Host := self.ServidorSMTP;
    if self.GeraLog=1 then LogMailThread('Host: '+self.ServidorSMTP);
    SMTP.Port     := self.Porta;
    SMTP.Password := self.Senha;
    SMTP.Username := self.Usuario;
    if self.Autenticacao=1 then SMTP.AuthType := atDefault else
    SMTP.AuthType := atNone;
    IdMessage.From.Address := self.Remetente;
    IdMessage.From.Name              := self.NomeRemetente;
    Idmessage.BccList.EMailAddresses := Destinatario;
    if self.GeraLog=1 then LogMailThread('Para: '+Destinatario);
    IdMessage.Subject    := self.Assunto;
    IdMessage.Body.Text  := self.TextoEmail;
    IdMessage.ContentType:= 'text/html';
    IdMessage.Date := now;


    try
      SMTP.Connect;
      SMTP.Send(IdMessage);
    except
      on e: Exception do
      begin
        if self.GeraLog=1 then LogMailThread(E.Message);
      end;
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
    IdMessage.Destroy;
    SMTP.Destroy;
  end;
end;