ClientSocket bekommt keine Verbindung

[UliBru]

Ja, ich hatte zuerst auch den Server unabhängig vom Client geschrieben.
Und wenn ich beim Sever mit telnet localhost 8078 teste, bekomme ich auch eine Verbindung inkl. Anzeige des gesendeten Textes im Server. Das klappt also.

Meine eigentliche Anwendung (testweise arg geschrumpft) ist

Delphi-Quellcode:

program ACSendCommand;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, System.Win.ScktComp;

var
  Client: TClientSocket;

begin
  Client := TClientSocket.Create(nil);
  Client.Host := 'localhost';
  Client.Port := 8078;
  Client.Open;
  if Client.Active then // <-----------------------wird nicht aktiv
    Client.Socket.SendText(AnsiString('Test'));
  Client.Close;
  Client.Free;
end.

Ich hab da nun ebenfalls als Hostadresse localhost vorgegeben. Es klappt genausowenig wie mit 127.0.0.1 oder der richtigen IP.
Also scheint da was falsch zu sein im Gegensatz zu Telnet.
Auch ein Senden ohne Abfrage auf den aktiven Client bringt nichts.

Beim Server wird dieselbe ScktComp verwendet. Delphi ist XE2.