Source position: tos.pas line 313
function Flock(
handle: SmallInt;
mode: SmallInt;
start: LongInt;
length: LongInt
):LongInt;