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

[bidaya]

السلام عليكم
هذا الكود بلغة .net
اريد اعادة كتابته الى الى لغة الدلفي

كود :

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