Source position: objpash.inc line 646
function MonitorEnter(
const aObject: TObject;
aTimeout: Cardinal = INFINITE
):Boolean;