compile below with fpc 3.0.4 commandline opt: -gw3 (for dwarf 3) after b was assigned do p b^ program Project1; var a: ansistring; b: ^ansistring; begin a:= copy('abcde',1,3); b:=@a; b:=@a; end.