TSimpleCriticalSection.Enter Method

procedure Enter(var csLock: Integer; const TrueValue: Integer);

Enter the critical section.

#NameTypeDescription
1csLockInteger
2TrueValueInteger

Result: stored in self (calling object)

Remarks:

The order in which the threads will pass is not deterministic. The waiting loop is using Sleep(0).