下面pb语句在delphi中怎么表示(20分)

FUNCTION Long GetSysMessage(Long pDataHandle, REF String Message, Uint nMaxMessage) LIBRARY "PP.dll"
FUNCTION Long EncryptWithCipher(long pDataHandle,string PlainData,REF string EncryptedData, ULong nMaxValueLenth) LIBRARY "PP.dll"

function GetSysMessage(pDataHandle: integer;
var Message: string;
nMaxMessage: integer): integer external 'PP.dll' name 'GetSysMessage'
另外一个类似

pb 的 String 类似于 vb 的 ？可能是 widestring 之类的（string 是 delphi 特有的）？
或者这样可能更合适：
function GetSysMessage(pDataHandle: integer;
Message: pchar;
nMaxMessage: integer): integer external 'PP.dll' name 'GetSysMessage'
其中 Message 需要自己开辟空间后传入，如 Message: array[0..4095] of char