Sock.Create создал объект типа TSocket,
Sock.Destroy его уничтожил.
За собой надо убирать, иначе никакая динамическая чистота у нас не получится.

[size=-2]------ Добавлено в 22:17
Там вроде только в одном месте Listen