FindForm

// Главная форма
frm=new TForm();
frm.Caption=frm_cpt="JS+ - поиск формы по заголовку";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример поиска формы по заголовку";

// Кнопка Button
btn=new TButton(frm);
btn.Caption="Искать форму";
btn.Width=btn.TextWidth(btn.Caption)+20;
btn.Left=(frm.ClientWidth-btn.Width)/2;
btn.Top =(stb.Top-btn.Height)/2;
btn.Hint="Искать форму с заголовком \""+frm_cpt+"\"";
btn.ShowHint=true;
btn.OnClick=btn_Click;

frm.ShowModal();

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

  if ((frm=FindForm(frm_cpt))!=null)
    alert("Найдена форма с заголовком:\n"+frm.Caption);
  else
    alert("Искомая форма не найдена");
}