Si lo que deseas es generar sólo tres números enteros (-1, 0 y 1) de manera aleatoria, pongo a consideración tuya el siguiente truco:
---------------------------
Integer N, numero
//Cuando la semilla es 0, PB toma la semilla
//de la hora del sistema. Se usa randomize(0),
//para evitar que la serie de números anterior se repita
Randomize(0)
//Rango de números. Primero generamos los números 1, 2 y 3
N=Rand(3)
//Como los anteriores números (1, 2 y 3)
//son aleatorios, podríamos utilizar un Case, para
//que tomen un valor específico entre el rango que tu quieres,
//es decir, se transformen en -1, 0 y 1, respectivamente
Choose Case N
Case 1
numero=-1
Case 2
numero=0
Case 3
numero=1
End Choose
//Visualizas el número en el rango -1 y 1
st_1.Text=String(numero)