var
  str: string;
  pStr:PChar;
...
pStr := PChar(str);
PChar := PChar(string);

var
  pStr:PChar;
  str:string;
...
str := strPas(pStr);
string := strPas(PChar);