Как скопировать строку PChar ? Опции

[Ldnb]

Думал, что, судя по описанию, функция StrCopy делает полноценное копирование, то есть автоматически выделяет память под копию данных. Как оказалось, нет, копируется только указатель, то есть, если после копирования из буферной переменной её значение меняется, то меняется и "скопированная" строчка.
Так как же всё-таки работать с этим странным PChar?

[volvo]

Попробовать, что ли, так?

Так не пойдет, будет утечка памяти.

uses strings;
var
  s: array[0 .. 79] of char;
  p, pp, p2: Pchar;

begin
  writeln(memavail);
  readln(s);
  pp := strnew(s);

  p := nil;
  p2 := strcat(pp, strnew(strcat('', strpcopy(p, ' just a test'))));
  writeln('p2 = ', p2);

  strdispose(p2);
  writeln(memavail);
end.

Так - не будет...

[TarasBer]

Так не пойдет, будет утечка памяти.

Что я делаю не так?

Просто приведение к PChar лишний раз не нужно, и всё.