Código Delphi
[-]
cadena := '82.125.35.106';
for i:=1 to 3 do begin
posicion := Pos('.', cadena);
cadena := Copy(cadena, posicion + 1, Length(cadena));
end;
¡Vualá!, queda genial, nunca se me habría ocurrido hacerlo con for...do. Muchísimas gracias Javi2, aquí estoy para lo que necesites