Показать сообщение отдельно
  #1  
Старый 03.06.2008, 11:58
lusuj lusuj вне форума
Прохожий
 
Регистрация: 03.06.2008
Сообщения: 3
Репутация: 10
По умолчанию бегущие цифры

Помогите пожалуйста.

Нужно сделать простенькую программу

при нажатии на кнопарь на экране должны выводится случайные числа, у меня выводится только последняя из цикла, что я делаю не так, спасибо.
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
 begin
for i:=1 to 10 do
  begin
    randomize;
    label1.caption:=inttostr(randomrange(1,100));
    Windows.SleepEx(200,false);
  end;
end;

Admin: Пользуемся тегами!
Ответить с цитированием