Как определить, запущена ли Delphi

Иногда, особенно при создании компонент, бывает необходимо получить доступ к компоненту только когда запущена Delphi IDE.

If FindWindow('TAppBuilder', nil) <= 0 then
  ShowMessage('Delphi is not running!')
else
  ShowWindow('Delphi is running!');