كيف اعادة كتابة هذا الكود للغة الدلفي

كود :
Private Sub method_31(string_3 As String, Optional string_4 As String = "0")
       Dim action As Action = Nothing
       Try
           Me.int_2 = 2
           If string_4 = "0" Then
               If int_0 = 1 Then
                   If bool_8 Then
                           MyBase.Invoke(New Action(Sub() GeckoBrowser.Navigate((Convert.ToString("javascript:play(" & string_4) + ");"))))
                       Else
                       MyBase.Invoke(New Action(Sub() Me.WebBrowser1.Document.InvokeScript("play", New Object() {string_3, Me.int_3})))
                   End If
               Else
                   MyBase.Invoke(New Action(Sub() Me.WebBrowser1.Document.InvokeScript("loadPlayer2", New Object() {Me.class3_0.method_6(string_3), Me.int_3})))
               End If
           ElseIf int_0 = 1 Then
               MyBase.Invoke(New Action(Sub() Me.WebBrowser1.Document.InvokeScript("qualityChange", New Object() {string_4})))
               If MainProg.int_10 <> -1 Then
                   If action Is Nothing Then
                       action = New Action(AddressOf Me.method_59)
                   End If
                   MyBase.Invoke(action)
               End If
           Else
               MyBase.Invoke(New Action(Sub() Me.WebBrowser1.Navigate((Convert.ToString("javascript:capsChange(") & string_4) + ");")))
           End If
       Catch
       End Try
   End Sub