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

[Ldnb]

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

[Ldnb]

Бился, бился с отладкой программы, переделывал и так и этак, пока не локализовал причину... Если коротко, то причина вот в чём:

{$X+}
uses strings;

var testArr:array [0..1] of PChar;
begin     
testArr[0]:= StrNew('!');
testArr[1]:= StrNew('abcdefgh');
StrCat(testArr[0], StrNew(testArr[1]));
write(testArr[1]); readln;
end.

Почему это происходит???? Нет, то есть вроде как приблизительно понятно, почему, но ЭТО ВООБЩЕ НОРМАЛЬНО??? И как это обойти?

{вместо строчки StrCat(testArr[0], StrNew(testArr[1])); можно вставить StrCat(testArr[0], StrNew(PChar('abcdefgh')));
результат не изменится}