Можно обойтись и без ExitThread, который за тебя заботливо сделает kernel32!BaseThreadStart

PS. Я с дельфи не оч дружу, но мб CreateThread(nil,0,@Thr,nil,0,hThr); здесь нужно @hThr, чтобы адрес переменной передать?