1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  POP.Host := Pop3ServerName;
  POP.Port := Pop3ServerPort;
  POP.UserID := Pop3ServerUser;
  POP.Password := Pop3ServerPassword;
try
  POP.Connect;
except
      on e:EIdSocketError do
// oder on EIdSocketError do // geht beides nicht!!
      begin
         ShowStatus('Serverfehler');
         exit;
       end;
end;