Fórum Paleta de Componentes FastNet(Um grande problema) #202745

Estou usando um componente para enviar e-mail´s TNMSMTP
CÓDIGO :
Email := TNMSMTP.Create(nil);

Email.Charset := ´us-ascii´;
Email.EncodeType := uuMime;
Email.Port := 25;
Email.ReportLevel := 0;
Email.TimeOut := 0;

if Email.Connected then
Email.Disconnect;

Email.Host := ´smtp.unesc.br´;
Email.UserID := AnsiLowerCase(Usuario) + ´@unesc.br´;
Email.Connect;

if Email.Connected then
begin
Email.ClearParams := True;
Email.SubType := mtPlain;
Email.PostMessage.FromAddress := AnsiLowerCase(Usuario) + ´@unesc.br´;
Email.PostMessage.FromName := AnsiUpperCase(TUsuario_Unesc(AppAcad.Usuario).Nome);
Email.PostMessage.ToAddress.Text := ´GETEC- Sistemas´;
Email.PostMessage.Body.Text := ´Ocorreu a seguinte execeção no sistema ´ + #1310 +
´Erro : ´ + Mensagem + 1310 + ´Formulário : ´ + Tela + 1310 +
´Controle : ´ + Controle + 1310 + ´Usuário : ´ + Usuario;
Email.PostMessage.Subject := ´Log de Erro do Sistema´;
Email.PostMessage.Date := DateToStr(Data_servidor);
Email.SendMail;
//Email.ClearParameters;
Email.Disconnect;
end;
Email.Free;

Está dando AcessViolation no SendMail, o restante está passando corretamente.
O que pode ser.