Excel 如何调用 Delphi 编译的 Dll 中的函数？

我想用 Delphi 编写包含函数的 Dll，然后在 Excel VBA 调用。试了很多次都无法返回正确的结果。
具体如下：

Delphi7 中的测试源码：

//********************************************************************************************
library XlsExt;
{比较两数的大小，并返回较大者}

uses
SysUtils,
Classes;

{$R *.res}

var
SaveExit:Pointer;
procedure LibExit; //为了不使退出Excel时出现异常
begin
ExitProc:=SaveExit; //恢复退出过程链表
end;

function MyMax(X,Y:SmallInt):SmallInt;stdcall; //定义函数
begin
try
if X>Y then MyMax:=X else MyMax:=Y;
except
MyMax:=333; //测试异常处理，可是好像没有看到这个结果。
end;
end;

exports //函数输出
MyMax;

begin
SaveExit:=ExitProc; //保存退出过程链表
ExitProc:=@LibExit; //设置LibExit为退出过程

Excel 如何调用 Delphi 编译的 Dll 中的函数？

Python中的Unicode在Delphi如何还原成Gb2312？

delphi中ACCESS的自定义函数怎么用呢...

请教delphi中使用access数据库进行数据导入的问题

转帖：DELPHI编写服务程序总结一－－编写技巧

delphi初学者，各位大侠帮帮忙