Revisa si tu cadena tiene la longitud adecuada (mayor o igual a 10)...
Me llama la atención que marques en negrita los caracteres 9 y 10 y la instrucción sea
Copy(Str, 10, 2);
¿No debería ser:?
Código Delphi
[-]
if Length(Str) >= 10 then
SubWord1 := '$' + Copy(Str, 9, 2);
Saludos.