как узнать занят ли конкретный порт?

[Etnaton]

как узнать?

[кондратий]

telnet hosthame portnumber

[Etnaton]

В смысле как самому создать это?
А не узнавать с помаши телнета.

[кондратий]

function IsConnected:integer;
var PSock : TPowerSock;
host : String;
begin


PSock := TPowerSock.Create(nil);

PSock.Host:=host;
PSock.Port:=1352;
try
PSock.Connect;
if PSock.Connected then
Result:=0
else
Result:=-1;
except
Result:=-1;
end;

PSock.Free;
end;

[Etnaton]

Спасибо за помаши и информацию.