VB之 物件類別模組(*.cls)內之程式如下:

Option Explicit

Implements IFM2DeviceEvents

Private m_CallbackEvent As String
Private m_CallbackMessage As String
Private m_DeviceIndex As Integer
Private m_SerialNumber As String
Private m_ZeroDeviceTimeoutCounter As Integer

'Methods

Private Sub IFM2DeviceEvents_DisplayErrorToClient()
frmMain.DisplayErrorMessage m_CallbackMessage


End Sub

Private Sub IFM2DeviceEvents_NotifyData(ByVal CallbackData As IFM2DeviceEvents)
frmMain.NotifyData CallbackData

End Sub

Private Sub IFM2DeviceEvents_NotifyDeviceStatus(ByVal CallbackData As IFM2DeviceEvents, ByVal DevicesList As cFM2Devices)
frmMain.NotifyDeviceStatus CallbackData, DevicesList
End Sub

Private Sub IFM2DeviceEvents_DisplayZeroDeviceProgressToClient()
frmMain.DisplayZeroDeviceProgress m_CallbackMessage, m_ZeroDeviceTimeoutCounter
End Sub

'Read/write properties

Private Property Let IFM2DeviceEvents_CallbackEvent(ByVal RHS As String)
m_CallbackEvent = RHS
End Property

Private Property Get IFM2DeviceEvents_CallbackEvent() As String
IFM2DeviceEvents_CallbackEvent = m_CallbackEvent
End Property

Private Property Let IFM2DeviceEvents_CallbackMessage(ByVal RHS As String)
m_CallbackMessage = RHS
End Property

Private Property Get IFM2DeviceEvents_CallbackMessage() As String
IFM2DeviceEvents_CallbackMessage = m_CallbackMessage
End Property

Private Property Let IFM2DeviceEvents_DeviceIndex(ByVal RHS As Integer)
m_DeviceIndex = RHS
End Property

Private Property Get IFM2DeviceEvents_DeviceIndex() As Integer
IFM2DeviceEvents_DeviceIndex = m_DeviceIndex
End Property

Private Property Let IFM2DeviceEvents_SerialNumber(ByVal RHS As String)
m_SerialNumber = RHS
End Property

Private Property Get IFM2DeviceEvents_SerialNumber() As String
IFM2DeviceEvents_SerialNumber = m_SerialNumber
End Property

'Write only properties

Private Property Let IFM2DeviceEvents_ZeroDeviceTimeoutCounter(ByVal RHS As Integer)
m_ZeroDeviceTimeoutCounter = RHS
End Property

請問該如何改寫成delphi? 該改寫成元件嗎? 請各位前輩幫忙..謝謝