pop3 mail

[Armax]

var
  NumOfMsgs,i:Integer; 
for I := 0 to 2 do
begin
try
IdPOP31.Host:='pop.mail.ru';
IdPOP31.Port:=110;
IdPOP31.Username:=memo2.Lines.Strings[i]; 
IdPOP31.Password:='pass';  
 
  IdPOP31.Connect;     
  if IdPOP31.Connected then       
  begin
    NumOfMsgs := idpop31.CheckMessages;      
    Memo1.Lines.Add('Подключение прошло успешно!');
    Memo1.Lines.Add('У вас '+IntToStr(NumOfMsgs)+' сообщений');
  end
except  // Если произошла ошибка- выводим её в Memo1
  on E:Exception do Memo1.Lines.Add('Ошибка подключения! '+E.Message);
end;
 
  IdPOP31.Disconnect;       
end;
end;

что делать если в почту не входит продолжалось проверять следующие почту???

[Stilet]

А он у тебя и так продолжает проверять следующий ящик даже если облом с входом в этот. Запускай не из под Делфи или в Делфи включи игнор на это исключение.

[Armax]

а как ? в потоках запустить?

[Stilet]

Что как? Ты сам то понимаешь что хочешь спросить?
Твой код пробивает три ящика. В случае неудачи с одним ящиком он переходит к другому.