Konsole und TServerSocket.Create -> Fehler

[Real_Thunder]

Habe hierzu mal eine Frage, ich versuche gerade ne serveranwendung über die console zu realisieren,
dazu habe ich mir den Source von oben mal kopiert, und die entsprechenen events eingesetzt wie z.b.

Delphi-Quellcode:

procedure TServerThread.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
writeln('Client hat verbunden');
Socket.SendText('Moin Moin');
end;

Wenn ich die Anwendung Starte, meckert meine Firewall auch brav rum, und ich erlaube dem Programm anschließend die Ports abzuhören.

Bei der Clientanwendung, meckert er gleich rum mit socketfehler, also das er keine Verbindung herstellen kann....

Ist der Serverthrad denn schon soweit das er die Verbindungen Annhemen kann ?...
Ich stehe echt auch dem Schlauch..

Für einen Schups in die richtige Richtung währe ich dankbar.

MfG Real Thunder