Генерация случайных чисел

[Kati]

Необходимо сгенерировать случайным образом 30 чисел в диапазоне от -100 до 100.
Я сделала так:
........
procedure genslych;
var
XX:real;
begin
for i:=1 to 30 do
begin
xx:=random(100);
mas1[i]:=random(100);
Form1.Memo1.Lines.Add(IntToStr(i)+' . '+FloatToStr(mas1[i]));
end;
end;
.......
procedure TForm1.Button1Click(Sender: TObject);
begin
genslych;
end;
.....
НО генерируются только числа в диапазоне от 0 до 100, а как сделать чтобы генерировалось от -100 до 100?

[Roof]

random(100); - от 0 д0 99;
random(201) - 100; от -100 до 100;

И не увидел использования Randomize.

[Kati]

Спасибо помогло!!!