Как победить Connection Closed Gracefully в IMAP

[KAPTOH]

Есть код, потоковый Imap, будет в данном примере рассматривать приложение как 1 поток. передаю туда Host, port, email, pass и пытаюсь подключиться, ниже execute

  Imap := TIdIMAP4.Create(nil);
  Imap.Username := email;
  Imap.Port := 993;
  Imap.Password := pass;
  Imap.ConnectTimeout := Check.TimeOut;
  Imap.ReadTimeout:= Check.TimeOut;
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(imap);
  Imap.IOHandler := SSL;
  Imap.UseTLS := utUseImplicitTLS;
  SSL.ReadTimeout := Check.TimeOut;
  SSL.ConnectTimeout := Check.TimeOut;

// делаю проверку
try
      Imap.Connect(True);
      if Imap.Connected then
      begin
        ErrNum := -1;
        Break;
      end;

  on e: Exception do
    begin
      ErrorText:= Imap.GetResponse+'=>'+e.ClassName+'->'+e.Message;




      if Pos('AUTHENTICATIONFAILED',e.ClassName)>0 then
      begin
      ErrNum:=0;
      Exit;
      end;

      if
      (Pos('Connection refused',e.message)>0) or
      (Pos('Socks server did not respond',e.message)>0)
      then
        begin
        ErrNum:=1;
        Break;
        end;

      if Pos('Host not found',e.message)>0 then
      begin
      ErrNum:=2;
      inc(imap_n);
      Continue;
      end;

      if
      (Pos('Read timed out',e.message)>0) or
      (Pos('Connect timed out',e.message)>0) then
      ErrNum:=3;
    end;

и в конце поток приходит сюда

procedure Checker.TermChecker(Sender: TObject);
var
th: THR_CHECKER absolute Sender;
begin
if th.FatalException <> nil then MainForm.sMemo1.Lines.Add('Fatal: '+th.FatalException.ClassName+'->'+th.FatalException.ToString);
MainForm.sMemo1.Lines.Add(th.ImapString);
  with MainForm do
  case th.ErrNum of
  -1: sMemo1.Lines.Add( th.email+':'+th.pass+'-> Good Acc' );
  0: sMemo1.Lines.Add( th.email+':'+th.pass+'-> Bad acc' );
  1: sMemo1.Lines.Add( th.email+':'+th.pass+'-> proxies failed' );
  2: sMemo1.Lines.Add( th.email+':'+th.pass+'-> bad imap' );
  3: sMemo1.Lines.Add( th.email+':'+th.pass+'-> connection time out' );
  4: sMemo1.Lines.Add( th.email+':'+th.pass+'-> Connection Closed Gracefully' );
  else
    sMemo1.Lines.Add( th.email+':'+th.pass+'-> Strange error:'+th.ErrorText );
  end;

if NumAccount >= MainBase.Count-1 then ShowMessage('Stopped') else CreateChecker;
end;

Но почему-то ошибка крашит поток в Fatal, а не обрабатывается как Exception, может кто знает? Может кто-то поможет избавиться от этого паразита?) Знаю что это не ошибка, а уведомление и есть оно в отладчике, но мне так-то нужно работать с почтой, поэтому нужно убрать это как-то