Fórum connection timeout em indy/idpop3 #467337

//////////////////////////////////////
// verificar emails clicando no botao
//////////////////////////////////////
procedure TfrmPrincipal.Label14Click(Sender: TObject);
var Msgs : Integer;
var arq: TextFile;
var linha: String;
var linha2: String;
var linha3: String;
var linha4: String;
var lista: String;
var lista2: String;
var lista3: String;
var lista4: String;
var lista5: Integer;
var i, n: Integer;


begin
//se arquivo existir
if FileExists('pop3.ini') then
begin
AssignFile(arq, 'pop3.ini');
Reset(arq);
if (IOResult <> 0)then
begin
ShowMessage('Erro na abertura do arquivo!');
end
else
begin
Readln(arq, linha);
Readln(arq, linha2);
Readln(arq, linha3);
Readln(arq, linha4);

lista := Copy(linha,Pos(' ',linha)+1);
lista2 := Copy(linha2,Pos(' ',linha2)+1);
lista3 := Copy(linha3,Pos(' ',linha3)+1);
lista4 := Copy(linha4,Pos(' ',linha4)+1);

lista2 := IntToStr(lista5);

IdPOP3_1.Host := lista;
IdPOP3_1.Port := lista5;
IdPOP3_1.Username := lista3;
IdPOP3_1.Password := lista4;
CloseFile(arq);
end;
end
//caso não exista
else
begin
TformEmail.showModal;
end;

//tenta conectar
try
    IdPop3_1.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(idPop3_1);
    IdPop3_1.UseTLS := utUseImplicitTLS;
    IdPOP3_1.Connect;

    Application.ProcessMessages;
    msgs := IdPop3_1.CheckMessages;
    msgs := msgs - 77;
    if msgs = 1 then
    begin
        ShowMessage(Format('Você tem %d nova mensagem!', [msgs]));
    end
    else if msgs >= 2 then
    begin
        ShowMessage(Format('Você tem %d novas mensagens!', [msgs]));
    end
    else
    begin
        ShowMessage(Format('Você não tem novas mensagems!', [msgs]));
    end;
    idPop3_1.Disconnect;
  except
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
end;
end;