importar una dll de c++

[mayusod]

Hola chicos a ver si alguin me puede decir por que esto no funciona

fichero de cabecera .h
#ifndef _CGLOGICSWINAPI_H_
#define _CGLOGICSWINAPI_H_
#if _MSC_VER > 1000
#pragma once
#endif
#ifdef __cplusplus
extern "C" { // only need to export C interface if used by C++ source code
#endif
#ifdef _COMPILING_THE_DLL_
#define CGLOGICS_API __declspec(dllexport)
#else
#define CGLOGICS_API __declspec(dllimport)
#endif
// API functions recommended for new integrations
CGLOGICS_API short __stdcall registerEvents3CG( void (__cdecl *cgStatusCall)( int amount, short status, short mode ),
void (__cdecl *cgErrorCall)( int errorCode, char* errorText, char* extInfo ),
void (__cdecl *cgLevelWarningCall)( short warningType, long denomination, short numberOf, char* typeString, #ifdef __cplusplus
}
#endif
#endif

y ahora la conversion a Delphi

Código Delphi [-]
 
unit CGLOGICSWINAPI;
interface
uses
{$IFDEF WIN32}
Windows,Dialogs,SysUtils;
{$ELSE}
Wintypes, WinProcs;
{$ENDIF}
{$IFNDEF _CGLOGICSWINAPI_H_}
{$DEFINE _CGLOGICSWINAPI_H_}
{$IFDEF _MSC_VER > 1000}
{ #pragma once }
{$ENDIF}
{$IFDEF __cplusplus}
{$ENDIF}
type
TProcStatus = procedure ( amount: Integer; status , mode:SmallInt); cdecl;
TProcError = procedure ( errorCode: Integer; errorText,extInfo : PChar); cdecl;
TProcLevelWarning = procedure (warningType:SmallInt; denomination: LongInt; numberOf :SmallInt;
typeString,denominationString,warningMessage,extInfo:PChar); cdecl;
TCashSession = Procedure(infoType: SmallInt;amount: LongInt; extInfo: PChar); cdecl;
 
function registerEvents3CG(ProcStatus: TProcStatus; ProcError:TProcError;
ProcLevelWarning:TProcLevelWarning; ProcCashSession:TCashSession;
message: PChar): SmallInt cdecl {$IFDEF WIN32} stdcall {$ENDIF};
 
{$IFDEF __cplusplus}
{$ENDIF}
{$ENDIF}
procedure ProcStatus( amount: Integer; status , mode:SmallInt); cdecl;
Procedure ProcError( errorCode: Integer; errorText,extInfo : PChar); cdecl;
procedure ProcLevelWarning(warningType:SmallInt; denomination: LongInt; numberOf :SmallInt;
typeString,denominationString,warningMessage,extInfo:PChar); cdecl;
Procedure CashSession(infoType: SmallInt;amount: LongInt; extInfo: PChar); cdecl;
 
implementation
procedure ProcStatus( amount: Integer; status , mode:SmallInt); cdecl;
begin
ShowMessage('amount:'+IntToStr(amount)+' statut:'+IntTostr(Status)+' mode:'+IntTostr(Mode));
end;
 
Procedure ProcError( errorCode: Integer; errorText,extInfo : PChar); cdecl;
begin
ShowMessage('errorCode:'+IntToStr(errorCode)+' errorText:'+errorText+' extInfo:'+extInfo);
end;
 
procedure ProcLevelWarning(warningType:SmallInt; denomination: LongInt; numberOf :SmallInt;
typeString,denominationString,warningMessage,extInfo:PChar); cdecl;
begin
ShowMessage('warningType:'+IntToStr(warningType)+' denomination:'+IntToStr(denomination)
+' numberOf:'+IntToStr(numberOf)+' typeString:'+typeString+' denominationString:'+denominationString
+' warningMessage:'+warningMessage+' extInfo:'+extInfo);
end;
 
Procedure CashSession(infoType: SmallInt;amount: LongInt; extInfo: PChar); cdecl;
begin
ShowMessage('infoType:'+IntToStr(infoType)+' amount:'+IntToStr(amount)+' extInfo:'+extInfo);
end;
 
function registerEvents3CG; external 'CGLOGICS.DLL';
 
end.

y asi es como lo llamo desde mi programa

Código Delphi [-]
  
unit UcashGuard;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Mask, rxToolEdit, rxCurrEdit,CGLOGICSWINAPI;
type
TForm1 = class(TForm)
btnIniApi: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
EditPuerto: TCurrencyEdit;
procedure btnIniApiClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
hDll: THandle;
MensajeCG : String;
end;
var
Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.btnIniApiClick(Sender: TObject);
begin
MensajeCG:='';
registerEvents3CG(ProcStatus,ProcError,ProcLevelWarning,CashSession,PAnsichar(MensajecG));
end;
end.

alguna idea de porque cuando ejecuto el boton "Ini apli" me da el siguiente error
---------------------------
Cashguard
---------------------------
Access violation at address 100332F9 in module 'CGLOGICS.DLL'. Write of address 00404DBD.
---------------------------
Aceptar
---------------------------

gracias espero sus respuestas