function strtoPchar(s:string):Pchar; begin S := S+#0; result:=StrPCopy(@S[1], S) ; end;
или
pch:=PChar(str);
str:=String(pch);