Følgende funksjon vil oppdage dersom søknaden blir feilsøkt eller ikke. Denne funksjonen vil ikke fungere på Windows 95. Behaviour av en søknad kan bli endret dersom kjøres i en debugger, for eksempel komponent forfattere ønsker kanskje at uregistrerte komponenter som skal kjøre i debugger only.Answer: function DebuggerPresent: boolean -typen TDebugProc = function : boolean; STDCALL; Var Kernel32: HMODULE; DebugProc: TDebugProc, begynner Resultat: = False; Kernel32: = GetModuleHandle ( 'kernel32.dll'); hvis Kernel32 < > 0 da begynneDebugProc: = GetProcAddress (Kernel32, 'IsDebuggerPresent'); hvis Assigned (DebugProc) så Resultat: = DebugProc; ende; end; å bruke en enkel hvis test kan være usedif DebuggerPresent deretter ShowMessage ( 'debugging') else ShowMessage ( 'IKKE debugging');