anchor.diff:    thr:=OpenThread(THREAD_SUSPEND_RESUME, True, entry.th32ThreadID);
     if thr<>INVALID_HANDLE_VALUE then begin
       ResumeThread(thr);
  -    CloseThread(thr);
  +    CloseHandle(thr);
     end;
     CloseHandle(Snap);
   end;
  
positive.code: interface
  
  uses
    Windows, SysUtils, DbgTypes, dbgConsts, winTools32;
  
  type
    TFloatingSaveArea = packed record
  
negative.code: begin
    FillChar(ctx, sizeof(ctx), 0);
    ctx.ContextFlags := CONTEXT32_CONTROL;
    Result := IntGetThreadContext(ThreadHandle, ctx);
    if not Result then Exit;
    
    ctx.ContextFlags := CONTEXT32_CONTROL;
    ctx.EFlags := ctx.EFlags or FLAG32_TRACE_BIT;
    
    // PContext(@ctx)^ is a bit hacky 
    Result := IntSetThreadContext(ThreadHandle, ctx);
  end;
  
  
  