SMTP-Mail zum 100sten mal

[MarkSE]

Sorry Leute,
Anfänger behalten leider, wie in diesem Fall, ihr Attribut viel zu lang.
Ich habe hier gelöste Probleme eins-zu-eins übernommen: leider erfolgslos
(sorry wegen Blob ohne Tags)

Delphi-Quellcode:

unit Unit2; // mit XE7. Auch mit Delphi 7 angepasst und probiert >> das gleiche Problem
 interface
 uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
 IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
 IdSMTPBase, IdSMTP, Vcl.StdCtrls, IdMessage;
 type
 TForm2 = class(TForm)
 senden: TButton;
 IndySMTP: TIdSMTP;
 IndyMessage: TIdMessage;
 Memo1: TMemo;

 procedure sendenClick(Sender: TObject);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;

 var
 Form2: TForm2;

 implementation

 {$R *.dfm}

 procedure TForm2.sendenClick(Sender: TObject);
 var
 m: TIdMessage;
 begin
  m := TIdMessage.Create(self);
  m.Clear;
  m.From.Address := '[e-mail]';
  m.Recipients.EMailAddresses := '[e-mail];
  m.Subject := 'sowasvonegal';
  m.Body := Memo1.Lines;

    // if IndySMTP.Connected then
    // IndySMTP.Disconnect;
  IndySMTP.Port := StrToInt('465');
  IndySMTP.Host := 'smtp.strato.de'; 
  IndySMTP.Username := '[e-mail]'; // wie Absender? Aber warum doppelt?
  IndySMTP.Password := 'pwpwpwpw';
  IndySMTP.AuthType := TIdSMTPAuthenticationType.satDefault;
  IndySMTP.Connect('1000');
  IndySMTP.Authenticate;

  if IndySMTP.Connected then // ab hier geht nicht mehr weiter 
   try
    IndySMTP.Send(m);
   except
    on E: Exception do
    Writeln(E.Classname+ ' - ' + E.Message);
   end;

  IndySMTP.Disconnect;
  showmessage('Mail erfolgreich!');
  if IndySMTP.Connected then
    IndySMTP.Disconnect;
 end;
 end.

Jetzt vermute ich wenigstens, dass irgendwo/irgendwie die Verschlüsselung hingehört.
das Wo und Wie, in Paar Wochen weiss ich eventunel
Wahrscheinlich gleich beim connect:
Connect(smtpHostname, SslMode.Explicit); Das mit Delphi-Tags tut weh, sorry viel mals