funcion RANDOM ... funciona bien ?!!!!!

[ingel]

Hola a todos .. perdon si suena a pavada .. pero estoy observando un comportamiento raro con dicha funcion.. justamente NO random ...

tengo vector de 2 DOS elementos , la cuestion es que siempre me seleccionaba
el primero (a la sexta vez ya comence a sospechar que no era muy normal..)
el bucle era el siguiente y siempre salia seleccionado el numero 1..

while (i1= 0) do begin
i1:= Random(length(vec)+1);//entre 0 y 3 porque tengo 2 op
end;

le agregue la condicion que siguiera si se seleccionaba el 1
y llego a seleccionar el 2 a la TERCERA VEZ que lo intenta .. y siempre
en la tercera vez !!!

while (i1= 0) or (i1= 1 ) do begin
i1:= Random(length(vec)+1);
end;


Luego ya en estado de desesperacion agregue otro numero para ver que
resultado me daba

while (i1= 0) or (i1= 1 ) do begin
i1:= Random(length(vec)+1);
i2:=Random(100);
inc(ii);
end;

y las 10 veces que lo probe , antes de decidirme a pedir auxilio aqui ..
me da ..

0 y 59 al primer intento de random
2 y 72 al segundo intento de random y sale del while...
y SIEMPRE ME DA LOS MISMOS VALORES !... en el mismo ORDEN !

alquien tiene idea que estoy haciendo mal o que puede pasar ...
GRACIAS !!!