Obtener el último trozo de una ip

[DarkByte]

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