Возврат указателя на константу из подпрограммы?

const
  N:integer=10;
 
type
  PInteger=^Integer;
 
function f:PInteger;
begin
  f:=@N;
end;
 
var
  a:PInteger;
begin
  a:=f;
  writeln(a^);
  readln;
end.

PBuffer = ^TBuffer;
TBuffer = array[0..64] of Word;
 
{ Класс управляет данными. }
TCacheManager = object
private
  FBuffer: TBuffer;
public
  { Функция перед записью значения поверяет его корректность и еще что то... }
  function SetVal(val, idx: Word); Boolean
  function GetBuffer; PBuffer;
end;
 
{...}
 
var
  CacheManager: TCacheManager;
 
{...}
 
{ Использует данные. }
procedure MyProc;
var
  BufferPtr: PBuffer;
begin
  BufferPtr := CacheManager.GetBuffer
 
  {что то там делаем ...}
  
  { Вообще, мне нужно, чтоб я не мог здесь сделать так. }
  BufferPtr^[0] := 100;
  { А мог, если потребуется, только так. }
  CacheManager.SetVal(0, 100);
end;

FBufferCopy:TBuffer;