random

vai para...

var
a: Integer;
begin
Randomize;

for a := 1 to 100 do
begin
Listbox.items.add(IntToStr(Random(100)));
end;
end;

Você também pode utilizar a função
function RandomRange(const AFrom, ATo: Integer): Integer;

Onde AFrom: é o número inicial - Ex: 10
e ATo é o valor final - Ex: 1000

Neste caso, a função ficará assim: RandomRange(10, 1000);

Falou....