var

  p1 : ^String;

  s1 : String;

begin

  s1 := 'NotTest';

  new (p1);

  p1 := @s1;

  p1^ := 'Test';

  Label1.Caption := s1