そりゃ Delphi の方で ** で受け取ってるんだから当然だが。
ていうか Delphi の方を var で受ける意味あるの？
今でてるの見る限り一切無いはずなんだけど。
ptpb で受ける限り、var の有無にかかわらず pb への変更は呼び出し元でも有効なはず。
それともつけなきゃ暗黙で const になるとでも言うのか。
それならそれで ptpb じゃなくて var の tPB で受ければいい話のはずだし。