TRttiContext.DropContext线程不安全

TRttiContext.KeepContext;
TRttiContext.DropContext;

procedure TForm61.Button1Click(Sender: TObject);
var
 i : Integer;
begin
  for i := 0 to 1000 do
  begin
//    TThread.CreateAnonymousThread(
//      procedure ()
//      var
//        j : Integer;
//      begin
//        for j := 0 to 100000 do
//        begin
//          TRttiContext.KeepContext;
//          TRttiContext.DropContext;
//        end;
//
//      end
//    ).Start;

  Scheduler.Run(procedure
                var
                  j : Integer;
                begin
                  for j := 0 to 100000 do
                  begin
                    TRttiContext.KeepContext;
                    TRttiContext.DropContext;
                  end;
                end)
           .WhenException(
                           procedure (const AException:Exception)
                           begin
                                ShowMessage(AException.Message);
                           end).Activate;

  end

end;