ProcessMessages

// Главная форма
frm=new TForm();
frm.Caption="JS+ - функция JS+ ProcessMessages";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Тест"';

// Кнопка
btn=new TButton(frm);
btn.Caption="Тест";
btn.Left=(frm.ClientWidth-btn.Width)/2;
btn.Top =(stb.Top-btn.Height)/2;
btn.OnClick=btn_Click;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var i,stb_Str=stb.SimpleText;

  btn.Enabled=false;
  stb.SimpleText=' Ожидание 5 секунд ...';

  for (i=0;i<500;i++) {
    // Вызов функции ProcessMessages позволяет
    // перемещать форму во время цикла
    ProcessMessages();
    Sleep(10);
  }

  stb.SimpleText=stb_Str;
  btn.Enabled=true;
}