[fpc-pascal] Initialization of constant record member of pointer type

[LacaK]

Hi,

is there a way how to initialize record member of pointer type (other 
than PChar) in the following example:

type
   TMyRec=record
     a: PByte; // if I change PByte to PAnsiChar then it works
   end;

const
   MyConst: TMyRec = (a: 'abcd'); // I want to a points to static memory 
where 'abcd' is stored

I would like to initialize a to be pointer to another known constant or 
directly to supplied string constant.

For example something like:

const
   MyConst1='abcd';
   MyConst2=TMyRec = (a: @MyConst1);

TIA

-Laco.