1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

with IdSMTP1 do begin
AuthType := satDefault;    

Host := eServer.Text;
if cbSSL.Checked then Port := ncPortmit else Port := ncPortohne;
Username := eUser.text;    
Password := ePassw.Text;  
if (Port = 587) or (Port = 465) then UseTLS := utUseExplicitTLS
                                else UseTLS := utUseImplicitTLS;

IOHandler := SSLHandler;
SSLHandler.SSLOptions.Method := sslvSSLv23;
SSLHandler.SSLOptions.Mode := sslmClient;
SSLHandler.SSLOptions.VerifyMode := [];
SSLHandler.SSLOptions.VerifyDepth := 0;

try
   Connect;
   Authenticate;
except
   on E: Exception do
      begin
         Application.MessageBox (PChar(E.Message),'Keine Verbindung zum Server möglich',MB_OK);
         Disconnect;
         exit;
      end;
end;
end;