Можно по указателю -
z:=ADR(x);
z^:=111;