Задержка вовода сообщения в Label

[shonty]

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

procedure TForm1.Button3Click(Sender: TObject);
begin
Label13.Font.Color:=clRed;
Label13.Caption:='КОНВЕРТАЦИЯ';   // информация
...
...

Можно как-то обойти., что бы сначала сообщение выводилось, а потом конвертация шла?

[BDA]

Лучше вынести долгую операцию в отдельный поток. Вот так появляются оба сообщения:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'КОНВЕРТАЦИЯ';
  Application.ProcessMessages;
  sleep(1000); // долгая операция
  Label1.Caption := 'КОНВЕРТАЦИЯ ЗАВЕРШЕНА';
end;

[shonty]

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

Вот так появляются оба сообщения:

Спасибо.

Поискав в сети ещё нашёл способ:

Form1.Update;

и, применительно к своей ситуации, переписал на:

Label13.Update;