[Black Raider]

Ниче не понимаю (с)Мф.

Код:

var i:integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do //Пробегаем циклом по всемуЛистбоксу
begin
  if CheckListBox1.checked[i] then //Проверяем нажат ли если да то
     case i of //смотрим какой items нажат
       0:begin //если 0 то делаем это
            SprosJurid:=random(60000);
            SprosFiz:=random(20000);
          end;
       1:begin //если 1 то делаем это
            SprosJurid:=random(100000);
            SprosFiz:=random(30000);
          end;
       2:begin //если 2 то делаем это
            SprosJurid:=random(120000);
            SprosFiz:=random(50000);
          end;
      end;
  end;