Source position: sha1.pp line 41
procedure SHA1Update(
var ctx: TSHA1Context;
const Buf;
BufLen: PtrUInt
);