You could do this:
[pascal]type
TByteArray = array[0..MaxInt] of Byte;

...

x := TByteArray(SamplePtr)[1];[/pascal]
I'm not too sure about the syntax there, but I know that this is possible.