TCriticalSection 을 이용해보세요.
TryEnter/Leave 를 이용하시면 중복수행시 무시됩니다.
Enter/Leave 를 이용하시면 중복수행시 이전 수행이 끝나길 기다렸다가 수행됩니다.

이를 이용해 함수의 시작과 끝에 TryEnter, Leave 를 넣으시면 되겠네요.


하준희 님이 쓰신 글 :
: 함수A()가있는데 A()는 무조건 실행되는도중에 또 실행되면 안됩니다.
:
: 그러니깐 lock,unlock형태로 만들고싶은건데
:
: 어떻게 해야될지 감이 안오네요
:
: 답변 부탁드립니다.
:
: void Class::A()
: {
:     //원래 실행하는소스
: }
:
: 함수는 위처럼 만들어져있습니다