WinSock сервер в потоке

[vgbox]

Здравствуйте.
Хочу запустить сервер в потоке, который в свою очередь должен создавать отдельные потоки для каждого соединения.
Использую наследника от TThread, инициализация WSA и создание сокета сервера вынес в отдельные процедуры и запускаются до старта потока.
После запуска потока с сервером идет цикличный вывод открывающиейся и закрывающейся скобки, т.е. функция accept не ждет подключения (почему?), а сразу возвращает значение INVALID_SOCKET (почему?).
Написал программу-клиент, которая успешно подключается к серверу, но сервер подключения не замечает, т.е. выдает все тот же INVALID_SOCKET (почему?). "Плюс" сервер не вывел на экран ниразу.
ПС. Переменная sSocket объявлена в привате tServer и в потоке имеет то же значение, что при создании сокета (проверял пошагово).
Прошу подсказать, что сделано неправильно или не сделано.
Поток:
---------------
procedure tServer.Execute;
var
cSocket:TSocket;
cAddr:TSockAddr;
cAddrSize:word;
begin
try
while not Terminated do begin
write('[');
cAddrSize:=SizeOf(cAddr);
cSocket:=accept(sSocket,@cAddr,@cAd drSize);
if cSocket<>INVALID_SOCKET then begin
write('+');
CloseSocket(cSocket);
end;
write(']');
Sleep(1000);
end;
finally
write('*');
end;
end;
---------------

[Slym]

лечение геморроя по рентгену пальца
весь код давай