Сделать мигающим заголовок окна и кнопку на панели TaskBar

ОГЛАВЛЕНИЕ    HOME  MAIL

var
  Flash: boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Мигание заголовка окна
  FlashWindow(Form1.Handle, Flash);
  // Мигание заголовка на панели задач
  FlashWindow(Application.Handle, Flash);
  Flash := not Flash;
end;