Корректный ли код?

[Hero]

Программисты, обращаюсь к вам, является ли следующий простой код корректным?

while true do
    begin
     Form1.Image2.Canvas.MoveTo(0,Form1.Image2.Height div 2);
     Form1.Image2.Update;
     Form1.Image2.Canvas.LineTo(Form1.Image2.Width,Form1.Image2.Height div 2);
     Form1.Image2.Canvas.FillRect(Rect(0,0,Form1.Image2.Width,Form1.Image2.Height));
    end;

[Квэнди]

Нет не является, так как это бесконечный цикл

[Hero]

Я имею введу будет ли работать код, если цикл будет повторятся бесконечно

[pu4koff]

если с синтаксисом все впорядке, то будет

[mihali4]

Хоть убейте, не вижу смысла хотя бы в повторном выполнении этой последовательности операторов...
И в первый раз уже произодится полная заливка канваса...
И зачем это вообще нужно? Это что - новый способ очистки битмапа от изображения?
И как автор собирается выходить из этого цикла?

[Hero]

Просто в моей проге эта последовательность часто используется. А бесконечный цикл только чтобы смоделировать частоту.

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

[JTG]

Потому, что программа не обрабатывает сообщения, которые ей поступают. Вставь строчку Application.Processmessages, но код действительно индийский

[pu4koff]

Сообщение от Hero

Просто в моей проге эта последовательность часто используется. А бесконечный цикл только чтобы смоделировать частоту.

ты тут собираеся найти место для оптимизации чтоль?

[BOBAH13]

Если на то пошло поместите данный код в поток и то после такой последовательности выполнения команд программа будет виснуть

[Hero]

Вообщем, все работает после добавления строки Application.Processmessages.

Всем спасибо.