C++ To Delphi Translation(Small Piece)

The attatched snipped is what I am trying to translate:

What I have so far is this and it likes to give an access violation:
const
  cmtNormal : Integer = 0;
  cmtSystem : Integer = 1;
  cmtBroadcast : Integer = 2;
  cmtEnd : Integer = 3;
  clCurrent : Integer = 0;
  clLobby : Integer = 1;
  clStage : Integer = 2;
  clGame : Integer = 3;
  clEnd : Integer = 4;

type
  TZChatOutput = procedure(Buffer: PChar; iType: Integer; iLoc: Integer; ChatColor: TColor);

var
  ZChatOutput : TZChatOutput;

procedure Echo(Output: String);

implementation

uses Addresses;

procedure Echo(Output: String);
var
  Buffer : PChar;
begin
  If Length(Output) < 127 Then
    begin
    If @ZChatOutput <> nil Then
      begin
      StrPCopy(Buffer,Output);
      ZChatOutput(Buffer,cmtSystem,clCurrent,$FFFFFFFF);
    end;
  end;
end;

#define ADDR_ZCHATOUTPUT	0x0042C660
//The definition of the Gunz output chat function
typedef void (__cdecl* ZChatOutputFunc)(const char* lpcMsg, int iType /*= 0*/,int iLoc /*= 0*/,  DWORD dwColor);
 
//Making the pointer to that func in Gunz
ZChatOutputFunc ZChatOutput = (ZChatOutputFunc)ADDR_ZCHATOUTPUT;
 
//Our own little interface function to it - works just like printf()
void Echo(const char* lpcFmt, ...){
	//Temp buffer
	char szBuf[0x4000];
 
	//Our args list
	va_list vaArgs;
 
	//Take whatevers in lpcFmt and make a real string out of it
	va_start(vaArgs, lpcFmt);
	_vsnprintf(szBuf, sizeof(szBuf), lpcFmt, vaArgs);
	va_end(vaArgs);
 
	//Now that szBuf holds the formatted string, let's dump it to the chat display
	ZChatOutput(szBuf, 1, 0, 0xFFFFFFFF);
}

Select allOpen in new window