Преобразование String в Pchar
function strtoPchar(s:string):Pchar;
begin
S := S+#0;
result:=StrPCopy(@S[1], S) ;
end;
Преобразование String в Pchar:
pch:=PChar(str); //Delphi 3+
обратно:
str:=String(pch);