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
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;