Utiliza las funciones Rnd y Randomize

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