Мигающий заголовок у формы

   Наверняка многим из Вас попадалось приложение где применялись мигающие заголовки у главных или дочерних форм.  Такие вещи применяются как правило для привлечения внимания пользователя к содержимому таких форм, ну да не суть важно, кто и для чего их применяет, важно то, что мы тоже можем реализовать такую же фишку в своих программах)
Делается это так:

1) Создаем новый проект, и объявляем глобальную переменную 

var

Flash: Bool;

2) Создаем обработчик событий FormCreate на форме, где присваиваем нашей переменной значение True:

begin

Flash:=true;

end;

3) Помещаем на форму компонент Timer устанавливаем в инспекторе объектов его свойство interval где то в 500 - это будет частота мерцания, свойство Enabled устанавливаем в true и создаем на нем обработчик событий, где прописываем:

begin

FlashWindow(Form1.Handle, Flash);

FlashWindow(Application.Handle, Flash);

Flash:=not Flash;

end;

   Запускаем программу и наблюдаем эффект мигания заголовка))).