哪位高手能把下列VB代码转化为Delphi

Option ExplicitDim ImageNumber As Integer
Dim ImagePath As String
Dim Images As New Collection
Dim CurImage As New CWIMAQImagePrivate Sub Timer1_Timer()
    Dim MeterArc As New CWIMAQMeterArc
    Dim NeedleEndPoint As New CWIMAQPoint
    Dim Percentage As Double
    
    MeterArc.CreateFromLines False, CWIMAQVision1.MakeLine(53, 75, 101, 134), _
                             CWIMAQVision1.MakeLine(203, 75, 155, 138)
    
    GetNextImage CurImage
    
    CWIMAQVision1.ReadMeter CurImage, MeterArc, Percentage, NeedleEndPoint
    
    CWMachineVision1.DrawCircularPoint CurImage.Overlays(1), NeedleEndPoint, 5, cwimaqOverlayModePaint, vbRed
    MeterLabel.Caption = Format(Percentage, "0.0")
    MeterKnob.Value = Percentage
End SubPrivate Sub CWSlide1_PointerValueChanged(ByVal Pointer As Long, Value As Variant)
    Timer1.Interval = IIf(Value <> 0, Value, 1)
End SubPrivate Sub Exit_Click()
    End
End SubPrivate Sub Form_Load()
    ImagePath = App.Path + "\..\..\..\Images\Meter"
    ImageNumber = 0    
    CWIMAQViewer1.Attach CurImage    
    Timer1.Enabled = True
    Timer1_Timer
End SubPrivate Sub GetNextImage(ByRef Image As CWIMAQImage)
    Dim NextImage As CWIMAQImage    
    If ImageNumber >= Images.Count Then
        Set NextImage = New CWIMAQImage
        CWIMAQVision1.ReadImage NextImage, ImagePath + "\Image" + Format(ImageNumber, "00") + ".jpg"
        Images.Add NextImage
    Else
        Set NextImage = Images(ImageNumber + 1)
        NextImage.Overlays(1).Clear
    End If
    
    CWIMAQVision1.Copy NextImage, Image
    ImageNumber = ImageNumber + 1
    If ImageNumber > 17 Then ImageNumber = 0
End Sub