anchor.diff:      ModuleCud: PPyObject;
       GlobalsMain: PPyObject;
       GlobalsCud: PPyObject;
  +    procedure TimeTrackBegin(var tick: QWord);
  +    procedure TimeTrackEnd(const AModule: string; var tick: QWord);
       procedure InitModuleMain;
       procedure InitModuleCud;
       procedure ImportCommand(const AObjectName, AModule: string);
  
positive.code:   InitModuleMain;
  
    FRunning:= true;
    if Assigned(EventTimes) then
      tick:= GetTickCount64;
  
    ObjName:= NamePrefix+AModule;
  
  
negative.code:         Py_XDECREF(Obj);
        end;
    finally
      TimeTrackEnd(AModule, tick);
      FRunning:= false;
    end;
  end;
  
  procedure TAppPython.TimeTrackBegin(var tick: QWord);
  begin
    if Assigned(EventTimes) then
      tick:= GetTickCount64;
  end;
  
  procedure TAppPython.TimeTrackEnd(const AModule: string; var tick: QWord);
  var
    i: integer;
  begin
    if Assigned(EventTimes) then
    begin
      tick:= GetTickCount64-tick;
      if tick>0 then
      begin
        Inc(EventTime, tick);
        i:= EventTimes.IndexOf(AModule);
        if i>=0 then
          EventTimes.Objects[i]:= TObject(PtrInt(EventTimes.Objects[i])+PtrInt(tick))
        else
          EventTimes.AddObject(AModule, TObject(PtrInt(tick)));
      end;
    end;
  end;
  
  