[Demonuka]

Есть DLL, написанная на C++, с отправкой сообщений на COM порт я разобрался, а с приемом никак не могу.
В оригинале выглядит так:
1. Назначается окно-приемник событий

Код:

typedef int (*Fvfconn_SetWinHandle)(VFCONNt_hdr hdr, UINT Msg, HWND hWndSet);

2. Описывается обработчик событий этого окна

Код:

void __fastcall  TForm1::ConnectMsg(TMessage& Message)
{
 int sz;
 unsigned long Stat;
 char sTmp[80];
 unsigned char * Bf;
 VFCONNt_hdr hdr_out=(VFCONNt_hdr)Message.LParam;
 strcpy(sTmp,"");
 switch (Message.WParam)
 {Описание событий}

В Delphi пишу так:
1. Назначаю окно

Код:

Re := vfconn_SetWinHandle(hdr, Msg, han);

2. Описываю обработчик событий этого окна:

Код:

procedure TForm1.ConnectMsg(var Message: TMessage);
var
  Stat: longword;
  hdr_out: Pointer;
  S: string;
  sz: integer;
  bf, strAddr: Pchar;
begin
  hdr_out := vfconn_new(PAnsichar(inttostr(Message.LParam)));
  case Message.WParam of
  //тут идет описание событий

Однако, эта процедура вобще не вызывается...