Дорогие друзья!
Подскажите, пожалуйста, в чем моя ошибка, бьюсь второй день?

Программа предназначена для управления станком. Поочередно идут операции, пока каждая отрабатывает, нужно, чтобы на экран выводились параметры.
Пока не создана подпрограмма управления, делаю еще только оформление экрана, упрощенную имитацию работы.

Создаю цикл по i.
В цикле мне надо вывести переменную, ну хотя бы, i в Edit1 или Label1 (в принципе, без разницы, лишь бы появилась на экране).
Далее нужно задержать на промежуток времени, скажем, на 3 секунды.
И снова – так в цикле.

Так вот, вместо того, чтобы показывать мне постепенно изменяющиеся цифры, программа сначала висит, а потом выдает самое последнее число этого цикла. То есть, не идет по шагам, при каждом шаге не выводит переменную.
Чую, что все должно быть просто, и где-то что-то я пропустила, а ЧТО – не понимаю…
Не вижу очевидного? Совсем торможу? …

…
For i:=1 to 10 do
begin
Edit1.text:=IntToStr(i);
Sleep(3000);
end;
…

Просто нужно перерисовать форму:

Guedda,

Спасибо огромное!!!

А оправдано ли тут использование Sleep? Данный вызов ведь заблокирует весь пользовательский интерфес... может лучше будет использовать, к примеру, таймер?

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:34

Да, Sleep , конечно, не лучший вариант...
Но это просто была имитация.
На самом же деле, потом в реальности - в это время станок будет отрабатывать очередную операцию и никаких искусственных задержек не будет.

Это было временно - показать пользователям, как будет все происходить на экране.