Task.Kind := TASK_KIND_TRANSLATE;

Task.Key := UIntPtr();

const
  { ================= Your Application Task Kinds ================= }
  TASK_KIND_NONE = 0;

  { Example Task Kinds }
  TASK_KIND_SAVECACHE = 1; // Save cache data
  TASK_KIND_TRANSLATE = 10; // Translate text or news

procedure InitThreadPool;

implementation

{ ================= Configure quotas & rate limits ================= }

/// Register once at startup
procedure InitThreadPool;
begin
  TMWQThreadPool.RegisterTaskKind(TASK_KIND_NONE, 'NONE', 0, 0, 0); // No rate limit, no quotas
  TMWQThreadPool.RegisterTaskKind(
      TASK_KIND_SAVECACHE, // AKind: Integer;
      'Save cache', //  const AName: string;
      2, // MaxWorkers: Integer;
      2, // RateCapacity: Int64;
      2 //  RateRefillPerSec: Int64
  );
  TMWQThreadPool.RegisterTaskKind(TASK_KIND_TRANSLATE, 'Translate', 4, 4, 2);
end;

procedure TExampleUse.EnqueueSaveCacheJob(const Job: TSaveCacheJob);
var
  Key: string;
  Owner: UIntPtr;
begin
  Key := MakeJobKey(Job);
  Owner := UIntPtr(Job.RequestOwner);

  FJobsLock.BeginWrite;
  try
    if FActiveJobs.ContainsKey(Key) then
      Exit;
    FActiveJobs.Add(Key, GetTickCount64);
    Inc(FJobsSubmitted);
  finally
    FJobsLock.EndWrite;
  end;

  TMWQThreadPool.EnqueueProc(
      function: Boolean
      begin
        Result := false;
        try
          try
            Inc(FJobsStarted);           
            Job.BeginWrite;
            try
              if TCacheSaver.Save(Job.Data) then begin
                //              Sleep(1000);
                //              if True then begin
                Inc(FJobsCompleted);
                if Assigned(FOnCacheSaved) then
                  DoOnCacheSaved(Job);
                Result := true;
              end
              else
                Inc(FJobsFailed);
            finally
              Job.EndWrite;
            end;

          except
            Inc(FJobsFailed);
            raise;
          end;
        finally
          FJobsLock.BeginWrite;
          try
            FActiveJobs.Remove(Key);
          finally
            FJobsLock.EndWrite;
          end;
        end;
      end,
      0, // APriority
      TASK_KIND_SAVECACHE, // AKind
      Owner, // ATaskOwner: UIntPtr
      UIntPtr(Key), // AKey: UIntPtr
      0, // ADeadlineTick: UInt64, 0 = never expires,
         // Example: GetTickCount64 + 120000 → task must start within 2 minutes or it will be dropped.
      True, // ACanRetry
      nil // Context object for OnTaskFinished Event.
  );
end;