[Willow]

Я бы на дельфе написал так:

type
PPChar=^PChar;
function GetMessageDescription( var buf:PChar; Code:LongWord; PMes:PPChar=nil; Count:byte=0):Longint; stdcall; external 'msgmgr.dll' name 'GetMessage';