Пример работы с указателями
01.01.2007
var
p1 : ^String;
s1 : String;
begin
s1 := 'NotTest';
new (p1);
p1 := @s1;
p1^ := 'Test';
Label1.Caption := s1
Взято с Vingrad.ru https://forum.vingrad.ru
var
p1 : ^String;
s1 : String;
begin
s1 := 'NotTest';
new (p1);
p1 := @s1;
p1^ := 'Test';
Label1.Caption := s1
Взято с Vingrad.ru https://forum.vingrad.ru