Используй эти компоненты, там также есть пример консольного TCP сервера с приёмом команд. Стандартный TCP_Server в консольных программах не работает.