Code:

{©Drkb v.3(2007): www.drkb.ru}

var

p1 : ^String;

s1 : String;

begin

s1 := 'NotTest';

new (p1);

p1 := @s1;

p1^ := 'Test';

Label1.Caption := s1