こんにちは。この使い方は、間違っているのでしょうか？

var
　 s : String;　 P : PChar;
begin
　 s := 'Yatterman Coffe Lighter'; //２３文字
　 P := PChar(s);
　 Inc(P, 10);
　 s := P;
　 Showmessage(s); // 'Coffee Ligther'
end;

　 結果、 sは、期待した通りになったのですが...　不安です。