Saber si un puerto esta abierto

[pmcastilla]

Hola Besto,
De casualidad, se que tal vez te digo una tonteria, pero intentaste poner un Break Pint e ir paso a paso para ver donde tilda?

[pmcastilla]

Antes de realizar los cambios de ip debes cerrar el puerto, sino genera un conflicto y tirar error.
Proba el mismo codigo con esa extra linea.

Código Delphi [-]
while not fin de la base de datos do
begin
//Extra Linea
   ClientSocket.Active := False;
   clientSocket.port := 2701;
   ClientSocket.Host := 'Dir IP1';
   try
      ClientSocket.Active := true;
   except
      on e:exception do 
         ShowMessage('Puerto '+IntToStr(clientSocket.port)+' de la direccion '+ClientSocket.Host+' está cerrado.'+#13+#10+e.Message)
   end
   next;
end;