//SSL Verschlüsselung
    if not chkSSLPostausgang.Checked then
      begin
        smtpSendMail.IOHandler := nil; // nicht benötigt
        smtpSendMail.UseTLS := utNoTLSSupport;
      end
    else
      begin
        // SSLHandler inititlisieren
        SSLHandler.SSLOptions.Method := sslvTLSv1;
        SSLHandler.SSLOptions.Mode := sslmUnassigned;
        SSLHandler.SSLOptions.VerifyMode := [];
        SSLHandler.SSLOptions.VerifyDepth := 0;

        smtpSendMail.IOHandler := SSLHandler;
        smtpSendMail.UseTLS := utUseImplicitTLS;
      end;

    with smtpSendMail do begin
      Username := UserEdit.Text;
      Password := PasswortEdit.Text;
      Host := SMTPEdit.Text;
      HeloName := SMTPEdit.Text;
      Port := StrToInt(SMTPPortEdit.Text);
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect;
      end;
    end;