MI Delphi4+Mi CallBack

[lct]

I have archived Callback in Delphi4,but only the "SetStatusText" can be used. When I create a Custom toolbar(for example: CustomDrawObject ,ID 2001) ,how can I add code to the Callback.    Thanks for help!