anchor.diff:      Dr7 := Regs.Reg[_Dr7].UInt32;
     end;
   
  -  Result := SetThreadContext(ThreadHandle, PContext(@ctx32)^);
  +  Result := IntSetThreadContext(ThreadHandle, ctx32);
     //if not Result then
     //  WriteLn('SetThreadContext = ', GetLastError);
   end;
  
positive.code:   CONTEXT64_SERVICE_ACTIVE      = $10000000;
    CONTEXT64_EXCEPTION_REQUEST   = $40000000;
    CONTEXT64_EXCEPTION_REPORTING = $80000000;
                  
  function DoReadThreadRegs32(ThreadHandle: THandle; Regs: TDbgDataList): Boolean;
  var
    ctx32 : TContext32;
  
negative.code:   thr:=OpenThread(THREAD_SUSPEND_RESUME, True, entry.th32ThreadID);
    if thr<>INVALID_HANDLE_VALUE then begin
      ResumeThread(thr);
      CloseHandle(thr);
    end;
    CloseHandle(Snap);
  end;
  