Исключение нуля в Random. Delphi.

[DSBM]

Привет, форумчане!
Сделал так, что при нажимании кнопки в ListBox1 генерятся числа до четырёх, в ListBox2 до шести. Как ограничить Random, чтобы он считал с единицы, а не с нуля?
Исходный код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ListBox1.Items.Add(IntToStr(Random(4)));
ListBox2.Items.Clear;
ListBox2.Items.Add(IntToStr(Random(6)));
end;

Заранее спасибо!

[type_Oleg]

Никак, Random() таким сделали. Так что просто
Random(4)+1 - это будет от 1 до 4 включительно.

Кстати, у вас не до 4 и 6 , а до 3 и 5