Zitat von
Assertor:
Sollte gehen, wenn man die TIdCriticalSection = class(TCriticalSection) mit der RTLCriticalSection ersetzt und einen Wrapper für .Enter und .Leave schreibt - sonst muß Du zu viele CodeStellen anpassen.
Das geht noch ganz anders. Man muss nur TIdCriticalSection.NewInstance überschreiben und dort ein gobales Byte-Array als Adresse zurückliefern. Und schon liegt die ganze Soße im "Datensegment" statt auf dem Heap.