Ajuda Delphi 7

[nailtonjk 1]

estou enfrentando um problema... com Loop no delphi

testei de 3 Formas no delphi e nada de funfar.

no caso ai é do Fast Reload " Point Blank "

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1400 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HAE2A6C, 255, &H4C, h, &HDFB)

Next

 

 

alguém poderia passar ele pra delphi. ou ensinar...

 

de uma forma que funfe... ^^