Use FlashWindow function. It flashes a specified window once, but if you will use the Timer component, then you may set not one flash only. procedure TForm1.Timer1Timer(Sender: TObject); begin FlashWindow(Application.Handle, True) end;