Рассчитаем незамысловатую вещь)

[Владимир_Мар]

Вот часть курсовой работы..
Помогите сделать такую вешь: например,моя ставка 10. при нажатии на кнопку выскакивают рандомно числа. Если сумма чисел,что выскачили >10, то на Панели появляется единичка и все начиннается снача.Как это сделать?

[-Flasher-]

Твой архив битый какой то. Если я правильно тебя понял тебе надо примерно такой код:

procedure Check;
begin
 if Edit1.Text < Random(StrToInt(Edit1.Text)) + Random(StrToInt(Edit1.Text)) then
  begin
   Panel1.Caption:=Panel1.Caption+'1';
   Check;
  end;
end;

Не забудь в процедуре OnCreate написать Randomize;