De VB Para Delphi ( AJUDA )

Dim p = &Hcerto pointer
        Dim oo = ReadPointerByte("PointBlank", p, &Hoffset1, &Hoffset2, &Hoffset3, &Hoffset4)
        If Convert.ToInt32(oo) = 0 Then
            WritePointerByte("PointBlank", &Hp, 1, &Hoffset1, &Hoffset2)
        End If