separar una cadena 5263-526-30 que me quede 30

[ecfisa]

Hola de nuevo.

Como para abrir el abanico, esta es otra solución

Código Delphi [-]
var
  Cad, Res: string;
begin
  Cad:= '20130-8563-675';
  Res:=  Copy(Cad,1,Pos('675',Cad)-2); 
end;

Pero es mucho mejor la solución de ContraVeneno, por que del otro modo ya tenés que usar dos funciones: una para obtener el primero y otra para obtener el último...
Y si mañana se te presenta tener que obtener el tercer grupo de : '13412-707-1307-00893-32', vas a tener que usar una tercera... o cuarta.

Usando la solución con TStringList, podés obtener cualquier grupo de dígitos con sólo especificar el string y el delimitador y luego concatenás lo que quieras.
Para este caso:

Código Delphi [-]
   Re:= ts[0] + '-' + ts[1];

Saludos.