OnMouseLeave

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

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

frm.ShowModal();

// Обработчик события OnMouseEnter
function frm_MouseEnter(frm)
{
  frm.Color=clRed;
}

// Обработчик события OnMouseLeave
function frm_MouseLeave(frm)
{
  frm.Color=clNavy;
}