Автор: Baa WEB-сайт: http://forum.vingrad.ru
var p1: ^string; s1: string; begin s1 := 'NotTest'; new(p1); p1 := @s1; p1^ := 'Test'; Label1.Caption := s1