[Alexo]

Код:

while not IdPOP31.Connected do begin
    try
     IdPOP31.Connect(50);
    except
     exit;
    end;
end;

Ты запускаешь в Delphi? Если да то там ошибки будут по любому выскакивать. У меня данный код работает без проблем.