anchor.diff:    ObjName: string;
     ParamObjs: array of PPyObject;
     Obj: PPyObject;
  +  tick: QWord;
     i: integer;
   begin
     if not FInited then exit(false);
     InitModuleMain;
   
     FRunning:= true;
  +  TimeTrackBegin(tick);
  +
     FLastCommandModule:= AModule;
     FLastCommandMethod:= AMethod;
     FLastCommandParam:= '';
  
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;
  
  