{$WRITEABLECONST OFF}

procedure TestBuf(const Buf; Size: Integer);
begin
end;

const A : Byte = 1;

begin
  TestBuf(A, 1);
end.