проблема с UDPServer

[freelancer89]

Добрый день, Господа!

Суть проблемы: имеется клиент-серверное приложение, суть его в передаче строк через UDP, все работает, но нужно при запуске программы генерировать новое значение порта от 1025 до 65535, при каждом запуске программы, это нужно для того, что бы можно было запускать несколько версий программы на одной машине.

генерация происходит так:

PORT:=Random (65535 - 1025 + 1) + 1025;
UDPServer.DefaultPort := PORT;

но мне нужно узнать, занят ли этот порт уже или нет, если - да - заново сгенерировать порт, если нет - использовать только что полученный

[freelancer89]

Уже не надо, решил это!