[ingabraham]

20130-8563-675

Código Delphi [-]
for I := Length(Cadena) Downto 1 do
begin  
  if Cadena[i] = '-' then  
    break;  

  Insert(Cadena[i], Result, 1)
end

1. obtengo 675 , correcto.

2. pero quiero tambien la cadena 20130-8563
?? como lo hago.