Dicas debug

Como saber seu seu programa está sendo executado apartir do delphi

if (FindWindow('TApplication', nil) = 0) or (FindWindow('TAlignPalette', nil) = 0) or
(FindWindow('TPropertyInspector', nil) = 0) or (FindWindow('TAppBuilder', nil) = 0) then
begin
ShowMessage('Delphi is not running!');
end

Como saber se o debug do delphi está ativado

IsBeingDebugged:=(DebugHook<>0);