Delphi - Desmenusar una cadena

Hola tengo unas preguntas como puedo hacer para quitarle las 2 ultimas letras de una cadena .?
Y como puedo hacer q se copie una cadena desde ':' hasta '$' OSEA se copie lo q esta dentro de : y $ como puedo hacer eso ?
o q

Quitar las dos últimas letras de una cadena:
vsCadena := Copy(vsCadena, 1, Length(vsCadena) - 2);

Copiar una subcadena delimitada por caracteres:

vsCadena := Copy(vsCadena, Pos(':', vsCadena') + 1, Pos('$', vsCadena) - Pos(':', vsCadena))

Ojo: Prueba esta última porque no estoy seguro de haber tomado bien las posiciones y además la he escrito "de memoria" así que
incluso puede tener errores sintácticos.