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