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