{$APPTYPE CONSOLE} + TSocketServer

('*'));

var
Server: TServerSocket;

Begin
Server:= TServerSocket.Create( ?? ); 

...

Server.free
End;

[wstyd] :p [wstyd] [wstyd]

Ja mysle, ze to glupi pomysl, ale jak chcesz to mozesz dac nil.