Пример работы с указателями

Автор: Baa

var
  p1: ^string;
  s1: string;
begin
  s1 := 'NotTest';
  new(p1);
  p1 := @s1;
  p1^ := 'Test';
  Label1.Caption := s1