Set flash for the window

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;