Como puedo definir un semaforo en mi aplicación Delphi??

[burasu]

Hola amigos, tengo una aplicación que funciona en multipuestos. Dicha aplicación tiene varios procesos, los cuales se me bloquean dando el consiguiente error en la aplicación.

Defino uno de los procesos, en este un usuario está atacando a una tabla con varios valores, los cuales mediante un procedimiento les realizo un recalculo de datos, sería el tipico proceso que se haría en un stock de almacen o en un recalculo de saldos en una aplicación de contabilidad. pues bien si en ese mismo momento otra persona realiza el mismo proceso, la aplicación da error, provocando deadlocks en la mayoria de las veces.

No se si me he explicado con claridad, pero como podría solucionar el error? Tengo entendido leyendo algunos manuales que se debería utilizar lo que se denomina un Semaforo, pero cual seria el codigo correcto de dicho semaforo?

Gracias