🚀 go-pugleaf

Hi all,
I have a problem when TIdPOP3 component try to connect to a host while 
internet or lan connection are not alive.
I have a simple TThread descendant that check for new messages and all is 
working fine when connectivity is present.
The code inside the Execute of the thread is:

void __fastcall TService::Execute(void)
{
  TIdPOP3 *POP3=new TIdPOP3(NULL);
  try {
    POP3->Host="mailserverhost";
    POP3->Port=110;
    POP3->Username="username";
    POP3->Password="password";
    try {
      POP3->Connect();
      int MsgCount=POP3->CheckMessages();
      if(MsgCount>0) {
        for(int i=1;i<=MsgCount;i++) {
          TIdMessage *Msg=new TIdMessage(NULL);
          try {
            POP3->Retrieve(i, Msg);
            // snipped store procedure
          }
          catch(Exception &e) {
            // Reading error
          }
          POP3->Delete(i);
          delete Msg;
        }
      }
      POP3->Disconnect();
    }
    catch(Exception &e) {
      // Connection error
    }
  }
  __finally {
    delete POP3;
  }
}

I made some errors using these components?
Should I set ReadTimeout property or something similar?
I thought to do Connect(int Timeout) but it doesn't exists.

Any help appreciate.

Lapo