How to convert this code from vb6 to delphi : <pre><code>Private Sub acak ( )
Dim random As New Random ( )
Dim a, c, m, i, y As Byte
Dim x( ) As Byte = {0,1,2,3,4,5,6,7,8,9,10}
a = 5
c = 7
m = 8
x (0) = random.Next (1, 16)
For i = 1 To 16
       x(i) = (a*x(i-1)+c) Mod m
       If x(i) = 0 Then
           y = i
       End if
 Next
 Button1.Text = x(16)
 acakbutton ()
</code></pre>

<p>End sub</p>

<p>Please help me because i can't use vb and i can't convert it because i'm still newbie</p>
