Похоже на бекдор. Я бы попробовал запустить среду под идой и поставить бряк на recv/recvfrom, после чего послать туда несколько раз какие-нибудь данные.
UPD:
У меня слушает порт 30001.
Команда, которую он ждет:
"ping,COMP_NAME,y;"
COMP_NAME - имя компьютера.
Y - по всей видимости, ключ.
Если ключ не верен - при каких-то обстоятельствах выкидывает из делфы на сайт ембаркадеро. Один раз выкинуло, повторить не удалось.
Что интересно - можно добавлять новые имена компов и ключи. Если имя еще не существует, то оно добавляется.
Так что не бекдор.
Кстати вокруг этого кода много строчек типа "TLicenseInfo", "szSystemStatus", и даже где-то на ключик натыкался.