ГирлионайльдоИ провёл некоторое расследование, и выснилось что Delphi произвольно двигает строку на +4 с чего и был сделан вывод отнять 4.
Так себе из вас расследователь.

Delphi строки никуда не сдвигает. Тип PAnsiChar - это, по факту, тупо Pointer на первый символ этой строки, больше никакой информации в runtime он не несёт. А вот UTF8String тоже по-факту указатель на первый символ этой строки (в этом он ничем не отличается от PAnsiChar), но кроме этого перед ним лежат 12 (навскидку, не помню точно) байт, которые содержат в себе длину строки, счётчик ссылок на неё и кодировку этой строки.
Так что ваша конструкция PAnsiChar(Pointer - 4) говорит только о том, что у вас тип-запись неправильно описан в Delphi и поле .val в нём смещено на 4 байта относительно исходной записи. Есть подозрение что вы пропустили слово packed в описании типа или в c++ просто стоит другое выравнивание полей в записи.