delphi检查自身是否被调试

function IsDebuggerPresent: boolean; external 'kernel32.dll';

 {$IFDEF DEBUG}

if (IsDebuggerPresent) then ThreadNumber := 1;

{$ENDIF}