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