[icWasya]

Кроме того, третим параметром BeginThread должен быть указатель на свободную функцию, а у Вас указатель на метод.
В результате получается каша.
Метод SockWait ждёт, что ему будет передан указатель на объект типа TServerSock, а этого не происходит.