anchor.diff:          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;
   
  
positive.code:   end;
  
    FRunning:= false;
  
    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;
  
  
  
negative.code:   InitModuleMain;
  
    FRunning:= true;
    TimeTrackBegin(tick);
  
    ObjName:= NamePrefix+AModule;
  
  