[Eidosqj]

Пробовала сл. варианты.

3 варианта:

1)на 13 ф.
if Form13.CheckBox4.Checked = True then
begin..снимаем деньги со счета- т..к за повышенеи споса надо платить деньги
на 8:
if Form13.CheckBox4.Checked = True then
begin
randomize;
SprosJurid:=random(140000);
SprosFiz:=random(70000);
end
else
begin
randomize;
SprosJurid:=random(60000);
SprosFiz:=random(20000);...

2) на 13 ф.
if CheckListBox1.Checked[i] then
case i of
0: begin снова платим деньгм за спрос
на 8ф
if Form13.CheckBox1.Checked[i] then
case i of
0:
begin
//Label14.Visible:= true;
randomize;
SprosJurid:=random(100000);
SprosFiz:=random(50000);
end
else
begin
randomize;
SprosJurid:=random(60000);
SprosFiz:=random(20000);... В ЭТОМ ВАРИАНТЕ ОН ВЫДАЕТ ОШИБКУ НА 8 ФОРМЕ, ПИШЕТ ЧТО i =byte- тип неправильный, хотя 13 форма действует и сумма за спрос снимается,
3) на 13ф
if CheckListBox1.ItemIndex=0 then begin плата за спрос
на 8ф.
if Form13.CheckListBox1.ItemIndex= 0 then
begin
randomize;
SprosJurid:=random(100000);
SprosFiz:=random(50000);