function PCharToString(P:PChar):String; override;
var
  PP: PChar := P;
begin
  while not(PP^ = #0) do Inc(PP);

  SetLength(Result, PtrUInt(PP)-PtrUInt(P) + 1);
  MemMove(P^, Result[1], PtrUInt(PP)-PtrUInt(P));
end;