Если поток у тебя не запускается, то возможно может ты connect не так проверял.

как глосит msdn - If no error occurs, this function returns zero. If an error occurs, it returns SOCKET_ERROR

Так что делай проверку

Также функция потока имеет вид:

function Name(***:****):dword; stdcall;

А также Не советую завершать функцию потока через ExitThread потому что тогда могут быть проблемки с освобождением ресурсов. По любому система сама потом всё почистит за тобой после заверения функции.

Больше сказать ничего не могу потому что по коду тут ничего не скажешь т.к. его мало.