[Ñuño Martínez]

Creo que lo tengo:

Código Delphi [-]
FUNCTION PcharToStr (aTexto: PCHAR): STRING;
BEGIN
  PcharToStr := StrPas (aTexto);
END;

Creo que esto funcionará.