Нам понадобится Таймер, в него вписываем:
procedure TForm1.TimerTimer(Sender: TObject);beginFlashWindow(Application.Handle, True);end;
Все наслаждаемся результатом))))