[[duilioisola]]

Y si ponés todo entre un try ... except?

Código Delphi [-]
while not fin de la base de datos do
begin
   clientSocket.port := 2701;
   ClientSocket.Host := 'Dir IP1';
   try
      ClientSocket.Active := true;
   except
      on e:exception do 
         ShowMessage('Error en ClientSocket.Active '+#13+#10+e.Message)
   end
   next;
end;

o

Código Delphi [-]
while not fin de la base de datos do
begin
   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;