nesco, мне кажется реально такой код вряд-ли кто-то где-то применит без четкого понятия для чего это ему нужно.
Обычно вместо
p1: ^string;
пишут
p1: PChar;
------------ Дoбавленo в 18.02:
nesco, опять ты свои посты правишь прежде, чем я отвечу.