threading-patterns

threading-patterns is a cursor rule for Cursor from SecondLifes/delphi-expert. It costs 0 tokens per session (732 once invoked), scanned A, original, MIT.

Threading Patterns in Delphi — TThread, TTask, Synchronize/Queue, thread-safety, PPL, cancellation.

Cursor rule for Cursor

Install

Getting it into your agent

One page per mod, every tool's command on it. A separate URL per tool would split the same page into five that compete with each other.

agentmods
npx agentmods add rules/secondlifes/delphi-expert/threading-patterns
Clone the repo
git clone --depth 1 https://github.com/SecondLifes/delphi-expert

Made for: Cursor.

Wrote this? Show the measurements

A badge with what this costs and how it scanned, read live from this page, so it follows the numbers instead of freezing them. Markdown for a README, HTML for a documentation site or a project page.

agentmods badge for threading-patterns

README.md
[![agentmods](https://agentmods.dev/badge/rules/secondlifes/delphi-expert/threading-patterns.svg)](https://agentmods.dev/rules/secondlifes/delphi-expert/threading-patterns)
Your own site
<a href="https://agentmods.dev/rules/secondlifes/delphi-expert/threading-patterns"><img src="https://agentmods.dev/badge/rules/secondlifes/delphi-expert/threading-patterns.svg" alt="Measured on agentmods" height="20"></a>
Per session 0 Nothing until a file matches its globs; then the whole rule loads.
When invoked 732 The whole file, excluding the scripts and references it only reads on demand.
Security scan A 0 findings. Scan, not verified.
Origin unknown No closer match found in the catalogue.
Token cost

What it costs to keep this loaded

Counted locally with the o200k_base tokenizer, which is exact for GPT models; Claude uses its own tokenizer and its counts differ. Treat this as one consistent yardstick across the catalogue rather than a bill. Prices are per million input tokens.

ModelPer sessionOnce invoked
Fable 5 $0.00000 $0.00732
Opus 5 $0.00000 $0.00366
Sonnet 5 $0.00000 $0.00146
Haiku 4.5 $0.00000 $0.00073

Measured today against content hash fa311cc64830, method: parsed. Prices are Anthropic first-party input rates as of 2026-08-30, from the pricing page.

Security

Grade A, and why

threading-patterns scanned grade A with 0 findings against 26 rules in 11 categories — prompt injection, anti-refusal, data exfiltration, privilege escalation, supply chain, agent snooping, system-prompt leakage, SSRF and excessive agency — measured today.

A static scan of the body, not an audit. Every finding is printed with the line that produced it so you can judge whether it matters here. A mod is markdown that instructs an agent; that is exactly why what it instructs is worth reading.

Nothing flagged

None of the 26 patterns this scan looks for appear in this file: no shell pipes, no recursive deletes, no credential paths, no hidden text, no instruction-override or anti-refusal phrasing, no agent-config snooping. That is not a guarantee, it is the absence of the things that are checkable.

.cursor/rules/threading-patterns.mdc · 117 lines

How it starts

The opening of the file, as written. The whole thing — 117 lines — stays where its author put it; the contents beside it link to each section on GitHub.

Threading & Multi-Threading — Rules

Use these rules when working with threads and asynchronous tasks in Delphi.

Golden Rule

NEVER access visual components (VCL/FMX) from a secondary thread. Use TThread.Synchronize (blocking) or TThread.Queue (non-blocking).

Approaches

Approach When to Use
TThread.CreateAnonymousThread Simple, one-shot tasks
TTask.Run (PPL) Modern way, managed pool
TParallel.For Parallel loop in collections
TFuture<T> Asynchronous result with value
TThread (inheritance) Permanent workers, queues, servers

Update UI from Thread

{ Queue: não-bloqueante (PREFERIR) }
TThread.Queue(nil,
  procedure
  begin
    lblStatus.Caption := 'Processando...';
  end);

{ Synchronize: bloqueante (quando precisa do resultado) }
TThread.Synchronize(nil,
  procedure
  begin
    lblStatus.Caption := 'Processando...';
  end);

TTask.Run — Modern Way

uses System.Threading;

TTask.Run(
  procedure
  begin
    { Código pesado em background }
    PerformWork;
    TThread.Queue(nil,
      procedure
      begin
        lblResult.Caption := 'Concluído';
      end);
  end);

Thread-Safety

Mechanism When to Use
TCriticalSection Classic critical section (Enter/Leave)
TMonitor Object native lock (Enter/Exit)
TInterlocked Atomic operations on Integer/Int64
TThreadList<T> Thread-safe list with LockList/UnlockList
TMultiReadExclusiveWriteSynchronizer Cache: many reads, few writes
TThreadedQueue<T> Thread-safe queue (Producer-Consumer)
{ TCriticalSection — SEMPRE Leave no finally }
FLock.Enter;
try
  Inc(FSharedCounter);
finally
  FLock.Leave;
end;

{ TInterlocked — Operações atômicas simples }
TInterlocked.Increment(FProcessed);

Cancelamento

{ Via Terminated em TThread }
while not Terminated do
begin
  DoWork;
end;

{ Via token customizado em TTask }
if AToken.IsCancelled then
  Exit;

Read the full file on GitHub · 117 lines

Changes

What this file has done since we first saw it

Hashed on every crawl. A supply-chain change to an agent config is a question of when, not whether, so the history is kept rather than the latest state alone.

  1. today First seen · 117 lines · 0 tokens per session scan A fa311cc64830

Subscribe to this mod's changes

threading-patterns is a cursor rule published in the GitHub repository SecondLifes/delphi-expert (3 stars, last pushed 2d ago), licensed MIT. It costs nothing until one of its globs matches a file; then it loads 732 tokens. A static security scan graded it A with 0 findings. No closer match exists in the catalogue, so it is treated as the original; first seen 2026-09-03.