[rgstuamigo]

Bueno en ese caso puedes hacerlo tal como te ha indicado Maeyanes o bien así:

Código Delphi [-]
    p:=LastDelimiter('-',Cadena);//Obtengo la ultima posicion del caracter '-' en la cadena
   Cadena_Separada:=RightStr(Cadena,length(Cadena)-p);//Extraigo la parte derecha de la cadena a partir de la pocision p+1

O tambien

Código Delphi [-]
    p:=LastDelimiter('-',Cadena);//Obtengo la ultima posicion del caracter '-' en la cadena
   Cadena_Separada:=Copy(Cadena,p+1,length(cadena)-p);//copio a partir de la pocision p+1 hacia adelante

Saludos...