function Adler32(Adler: longint; buf: PChar; len: longint): longint;
* adler32.c -- compute the Adler-32 checksum of a data stream
* Copyright (C) 1995-1996 Mark Adler
* For conditions of distribution and use, see copyright notice in zlib.h
function CheckSumFile(const FileName: string): integer;