Мигание кнопки приложения

Code:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

FlashWindow(Application.Handle, True);

end;

Code:

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

procedure TForm1.Timer1Timer(Sender: TObject);

begin

     FlashWindow(Handle, true);

     FlashWindow(Application.Handle, true);

end;