Заставить мерцать кнопку приложения на панели задач

Оформил: DeeCo

Timer1.Interval = n  (Tip for n = 1000  "1 second")

 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
      FlashWindow(Handle, true);
      FlashWindow(Application.Handle, true);
 end;