Perform

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод визуальных компонентов Perform";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Отправка в форму сообщения WM_CLOSE";

// Кнопка
btn=new TButton(frm);
btn.Caption="Отправить";
btn.Width=btn.TextWidth(btn.Caption)+20;
btn.Left=frm.ClientWidth-btn.Width-15;
btn.Top =stb.Top-btn.Height-15;
btn.OnClick=btn_Click;
btn.cmpTag=frm;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var frm=btn.cmpTag;

  frm.Perform(WM_CLOSE,0,0);
}