试图将函数指针从 Delphi 中创建的可执行文件传递到用Visual C创建的dll函数。当C端调用Delphi中具有单个int类型参数的指针函数时，此变量显示为某个巨大的数字，而不是数字“1”。我做错了什么？
C++端：

void (*foo)(int);
extern "C" void _stdcall setFoo(void (*foo2)(int))
{
    foo = foo2;

    foo(1);
}

Delphi 方面：

TFoo = procedure(val: integer) ;
  TSetFoo = procedure( val: TFoo) ; stdcall;
...
  Foo: TFoo;
  SetFoo:TSetFoo;

...

procedure fooH( val : integer);
begin
ShowMessage('foo '+inttostr(val));
end;
...
setFoo(fooH);