ActiveSkin换肤控件很不错,但在Delphi中不知道怎么用?? 具体怎么用? (200分)

ActiveSkin换肤控件很不错,在VB中会用,但在Delphi中不知道怎么用??
例如在VB中:
Private Sub skn_Click(ByVal Source As ACTIVESKINLibCtl.ISkinObject)
Select Case Source.GetName
Case "A"
MsgBox "Button A"
Case "B"
MsgBox "Button B"
End Select
End Sub
那么要实现同样效果,在Delphi中怎么用呢?
请高手指教,急需!!!