Oder, wenn man es selbst machen will, einfach das:
Delphi-Quellcode:
i:=Random(1000)+1;//eine Zahl von 1 bis Tausen, also beide darin enthalten
i:=Random(1995)+5;//Ergibt eine Zahl von 5 bis 2000
i:=Random(x) Ergibt einen Wert, für den gilt 0<=i<x
i:=Random(x)+y Durch die Addition dahinter sieht das ganze halt so aus:
y<=i<x+y