SMTP-Mail zum 100sten mal

[MarkSE]

Guten Abend Freunde,
ich stehe seit Stunden wie Ochs am Berg und bekomme nicht ein einfaches Mail-Versand zum laufen. mal bekomme ich Socket-Error 11001 , mal 11004.
Bitte wenn jemand eine Idee hätte, wo ich daneben liege, wäre ewig dankbar.

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
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('Das Mail wurde erfolgreich versendet!');
if IndySMTP.Connected then
IndySMTP.Disconnect;
end;
end.