ActiveSkin 用delphi开发时的FreeForm问题(100分)

FreeForm在activeskin中指的是不规则窗体.响应自定义的buttonclick时.在vb中works well.代码如下:Private Sub skn_ClickEvent(ByVal eventSender As System.Object, ByVal eventArgs As AxACTIVESKINLib._ISkinEvents_ClickEvent) Handles skn.ClickEvent
Select Case eventArgs.Source.GetName
Case "A"
MsgBox("Step A. Create bitmaps (or 32-bits TGA files with alpha-channel) for your skin, and load them into SkinBuilder.",  , "How to create simple application-specific skin")
Case "B"
MsgBox("Step B. Create SkinFreeForm object (in application-specific folder), and choose its background bitmap.",  , "How to create application-specific skin")
Case "C"
MsgBox("Step C. Create SkinButtons in the SkinFreeForm object and assign Normal, Highlighted and Pressed bitmaps.",  , "How to create application-specific skin")
Case "D"
MsgBox("Step D. Choose the meaningful names for your objects to distinguish them from your application.",  , "How to create application-specific skin")
Case "InnerArea"
LoadedSkin = 3 - LoadedSkin ' Switch to another skin: 1->2, 2->1
DoApplySkin()
End Select
End Sub但是在delphi下却没有对应的类似AxACTIVESKINLib._ISkinEvents_ClickEvent的类型.因此干瞪眼了,没法写.高手有办法么?????