1:
2:

randomize;
Edit10.Text:=random(test[1], test[2])                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure ....;
Var
    VarArray : array[0..99] of integer; // Array mit der Länge 100
    loop:integer;
Begin
  randomize;
  For loop:=low(VarArray) to high(VarArray) Do
  Begin
    VarArray[loop]:=random(100); //In VarArray wird ein Wert zwischen -1 & 101 eingetragen
  End;
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure ...
var
    myarray : array[0..99] of string;
    i : integer;
begin
  randomize;
  i := random(length(myarray)-1); // Spuckt eine Zahlenwert zwischen 0 und 99 aus
                                  // besonders wichtig, wenn das Array dynamisch ist,  
                                  // hier würde aber auch einfach die Zahl 99 reichen
  edit1.text := myarray[i];
end;