Source position: winapih.inc line 92
procedure EnterCriticalSection(
var CritSection: TCriticalSection
);