Saber si un puerto esta abierto

[Besto]

Bueno, gracias pmcastilla pero eso exactamente no es lo que quiero. Voy a ver si me explico.

La aplicación es para comprobar si los equipos tienen instalado diverso software y si el servicio está activo, RAdmin por ejemplo, entonces lo que queremos ver es si el puerto correspondiente esta abierto.

Yo creo que el error que me da es debido a que no esta abierto, pero no se como esperar a que termine la comprobación antes de mandar la siguiente y yo creo que se me cruzan.

Lo que hago es lo siguiente:
while not fin de la base de datos do
begin
clientSocket.port := 2701;
ClientSocket.Host := 'Dir IP1';
ClientSocket.Active := true;
next;
end;

Me he fijado cuando pongo Active a true no siempre me salta el evento OnConnect.

Bueno, Seoane el error que me da es el siguiente:

Asyncronous socket error 10049

Gracias a los dos por vuestra rapidez.