[Eidosqj]

Здравствуйте, помоги пожалуйста новичку. Желательно, сделать во вложенном файле, потому что я Вас могу не понять.
Мне нужно сделать спрос на товар более эластичным, для этого в форме8, после нажатия на кн. "спрос", у меня случ. образом генерируется спрос Random(60000) - для юр. лиц и Random(20000)- для физ. лиц.
Чтобы сделать чтобы спрос менялся я на форме 13, создала CheckListBox или CheckBox (пробовала так и так), назначение списка: если пользователь выбрал первый вид CheckListBox. ItemIndex=0 то спрос должен повыситься: вместо Random(60000), стать Random(100000),есил выбрал CheckListBox.ItemIndex=1 то до др. интервала повыситься.
Я это сделать не могу. Я пробовала такой условно код : что
если CheckListBox. ItemIndex=0 то спорс Random(100000), инчае Random(60000).
не получается он генерирует только в приделах Random(60000).

procedure TForm8.Button3Click(Sender: TObject);
begin
if Form13.CheckListBox1.ItemIndex= 0 then
begin
//Label14.Visible:= true;
randomize;
SprosJurid:=random(100000);
SprosFiz:=random(50000);
SprosJurid:=SprosJurid*10;
SprosFiz:=SprosFiz*10;
Edit1.Text:=FloatToStr(SprosJurid);
Edit2.Text:=FloatToStr(SprosFiz);
Spros:=SprosJurid+SprosFiz;
Edit3.Text:=FloatToStr(Spros);
Form1.Edit19.Text:= FloatToStr(Spros);
Button3.Enabled:=false;
end
else

begin

randomize;
SprosJurid:=random(60000);
SprosFiz:=random(20000);
SprosJurid:=SprosJurid*10;
SprosFiz:=SprosFiz*10;
Edit1.Text:=FloatToStr(SprosJurid);
Edit2.Text:=FloatToStr(SprosFiz);
Spros:=SprosJurid+SprosFiz;
Edit3.Text:=FloatToStr(Spros);
Form1.Edit19.Text:= FloatToStr(Spros);
Button3.Enabled:=false;
end;