Threadsicher : Verwendung von Semaphoren

[DelphiManiac]

Hallo,

ich brauche eure Hilfe bei folgender Geschichte:

Ich habe eine Funktion, die n-mal aufgerufen wird.

Diese Funktion, nennen wir sie mal Func_1() soll eine Zählervariable beim Eintritt prüfen auf 0,
wenn diese 0 ist, dann in die Funktion reingehen, ausführen und am ende wieder auf decrementieren.

Also im Prinzip wie eine Schlange, es stellen sich n-Leute an, der Erste darf die Funktion betreten und wenn er fertig ist, kommt der nächste dran.

Ich will threadübergreifend sicherstellen, dass die Funktion nur 1mal "parallel" durchlaufen wird.

Habe schon einiges hier über Threadsynchronisation und ähnliches gelesen und denke eine Semaphore wäre hier angebracht.

Könntet ihr mir erklären, wie man eine Semaphore nutzt / erzeugt / freigibt / dekrementiert usw.?

Vielen Dank!!!

Gruß
DelphiManiac