问在Windows 8环境下使用Delphi中Indy的Gmail失败与“连接优雅关闭”

EN

Smtp := TIdSMTP.Create(nil);
try
  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(smtp);
  try
    Smtp.OnStatus := IdSMTP1Status;
    Smtp.OnWorkBegin := IdSMTP1WorkBegin;
    Smtp.OnWorkEnd := IdSMTP1WorkEnd;
    Smtp.OnWork := IdSMTPWork;
    Smtp.Host := 'smtp.gmail.com'
    Smtp.Port := 487, 565 both tried here;
    Smtp.Username := 'the email@gmail.com'
    Smtp.Password := 'The password'
    // TLS for Gmail, etc
    if UseSSL then // true 
    begin
      Smtp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
      if Smtp.Port = 465 then
        Smtp.UseTLS := utUseImplicitTLS
      else
      if Smtp.Port = 587 then
        Smtp.UseTLS := utUseExplicitTLS
      else
        Smtp.UseTLS := utUseExplicitTLS;
      IdSSLIOHandlerSocketOpenSSL1.Host := 'gmail smtp again'

      IdSSLIOHandlerSocketOpenSSL1.Destination :=
        Smtp.Host + ':' + IntToStr(Smtp.Port);
      IdSSLIOHandlerSocketOpenSSL1.Port := Smtp.Port;
    end;
    try
     Smtp.Connect;
     sTempFileName := data1.GetSettingsFileFolder+'\tmp.email';
     EmailMessage.SaveToFile(sTempFileName);
     AssignFile(F,sTempFileName);
     Reset(F);
     iFileSize := FileSize(F) * 128;
     CloseFile(F);
     SysUtils.DeleteFile(sTempFileName);
     StatusForm.SetProgress(0,iFileSize);
     Smtp.Send(EmailMessage);
    except on E:Exception do
      begin
        MessageDlg(E.Message, mtError, [mbOK], 0);
        Exit;
      end;
    end;
  finally
    IdSSLIOHandlerSocketOpenSSL1.Free;
  end;
finally
  EmailMessage.MessageParts.Clear;
  if Smtp.Connected then smtp.Disconnect;
  Smtp.Free;
end;