Para usar la funcion rnd primero debes llamar a la funcion rabdomize, pero siempre con un numero diferente para que te de numeros aleatorios.
Esto lo puedes hacer asi:
Randomize(Timer)
Para generar un numero aleatorio con limites
Variable = (Rnd * LimiteDeNumeros) + Numero minimo
Ejemplo para generar un numero entre 25 y 30
Dim MiNumeroAleatorio as integer
Randomize (Timer)
MiNumeroAleatorio = (Rnd * 5) + 25