Verificar se o Delphi esta rodando

If FindWindows('TAppBuilder',Nil ) <> 0 then
Showmessage('O Delphi está rodando');