Foros Club Delphi - Como implementar este codigo en delphi 7

hola amigos disculpen la ignorancia pero como implemento este codigo en
delphi 7. Saludos
Código:
Option Explicit

Private Sub Command1_Click()

Dim Aux As String, PosIni As Integer, PosFin As Integer

    'Navegas en el contol el sitio

    Me.WebBrowser1.Navigate "http://contribuyente.seniat.gob.ve/BuscaRif/BuscaRif.jsp"

    

    'Esperas a que se cargue la pagina

    Call WaitBrowserReady(WebBrowser1)

    'completas el sitio con el numero

    Me.WebBrowser1.Document.All.p_rif.Value = Me.Text1

    'Haces click en buscar

    WebBrowser1.Document.All.busca.Click

    Call WaitBrowserReady(WebBrowser1)

    'Ya tenes el dato, ahora lo guardamos en un auxiliar

    Aux = UCase(WebBrowser1.Document.body.innerHTML)

    'ahora sacas lo que queres. Yo lo hago buscando la ultima vez que esta

    'el Rif que pusiste. Mira el codigo fuente de la pagina sino

    PosIni = MyInstrLast(Aux, Me.Text1)

    'Buscamos de vuelta, ahora encontrando el principio del nombre

    PosIni = InStr(PosIni, Aux, ";", vbTextCompare)

    'buscas la posicion fianl que esta delimitada por el </b>

    PosFin = InStr(PosIni, Aux, "</b>", vbTextCompare)

    MsgBox Mid(Aux, PosIni + 1, PosFin - PosIni - 1)

End Sub

Private Sub WaitBrowserReady(ByRef obj As Object)

    DoEvents

    While obj.Busy = True

        DoEvents

    Wend

End Sub

Private Function MyInstrLast(ByVal pstrText As String, ByVal pstrSearch As String) As Double

    Dim pos As Double, Aux As Double, ctrl1 As Double

    pos = 0

    Do

        Aux = InStr(pos + 1, UCase(pstrText), UCase(pstrSearch))

        If Aux <> 0 Then pos = Aux

    Loop Until Aux = 0

    MyInstrLast = pos

End Function