如何样给类型中的过程赋值

怎么样给类型中的过程赋值
Type
TOnAudit   =   Procedure(Sender:   TObject)

TTest   =   Packed   Record
OnAudit:   TOnAudit;
end


Procedure   Button1OnClick(Sender:   TObject);
var
Test:   TTest;
begin
Test.OnAudit   :=   ??????//怎样对过程进行赋值.
end;

[解决办法]
是不是那个DLL函数支持回调你指定的一个函数的?