ex3me, мда, вам лишь бы скомуниздить и не проверить сам код
если я был бы новичком то сразу же вопросы стали типа "А что такое Err(Connect(S,addr,SizeOf(TSockAddr))), и почему он не выполняется"

InfectedM, стучи в асю 114400О2, кину пример с коментами