freepascal.compiler/docs/stringex/ex16.pp

Program Example16;

Uses strings;

{ Program to demonstrate the StrNew function. }

Const P1 : PChar = 'This is a PChar string';

var P2 : PChar;

begin
  P2:=StrNew (P1);
  If P1=P2 then 
    writeln ('This can''t be happening...')
  else
    writeln ('P2 : ',P2);
end.