TCP/IP server

[Martin Záruba]

Poraďte, kde dělám chybu prosím. V programu mám TCP/IP klienta udělaného 
takto: (snažil jsem se vypustit vše nepodstatné)
   Socket := TTCPBlockSocket.Create;
   Socket.Connect('IPadresa', 'IPPort');
   takto komunikace funguje bez problémů. Potřeboval jsem ale, aby 
program běžel v režimu server. Udělal jsem to takto:

   Socket := TTCPBlockSocket.Create;
   Socket.setLinger(true,1000);
   Socket.Bind('0.0.0.0','IPPort');
   Socket.Listen;
  port se otevře, ale nic to nechce přenášet. Kde je chyba?

-- Martin Záruba

---
Tato zpráva byla zkontrolována na viry programem Avast Antivirus.
https://www.avast.com/antivirus