Si se trata de copiar o extraer los dos ultimos caracteres de la cadena, pues se puede hacer:
Código Delphi
[-]Cadena_Separada:=RightStr(Cadena,2);
o tambien
Código Delphi
[-]Cadena_Separada:=Copy(Cadena,Length(Cadena)-1,2);
Ojo: Para que te funcione lo anterior no debe haber ningun espacio al final de la cadena.

.
Saludos...

__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7