pchar to string: function StrPas(const Str: PChar): string;
string to pchar: function StrPCopy(Dest: PChar; const Source: string): PChar;
pchar to string: function StrPas(const Str: PChar): string;
string to pchar: function StrPCopy(Dest: PChar; const Source: string): PChar;