CRC32 einer Datei ermitteln

[MacGuyver]

Moin Leute,

ich bin auf der Suche, wie ich diesen Schnipsel zum Laufen bekomme:

Delphi-Quellcode:

function CRC32File(const AFileName: String): Cardinal;
var
  S: TStream;
begin
  S := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
  try
    Result := CRCCalcEx(CRC_32CCITT, S.ReadBuffer);
  finally
    S.Free;
  end;
end;

Ich kann nichts dazu finden. Welche Unit muss ich dafür einbinden?

Ich arbeite mit Turbo Delphi 2006 Explorer.

Kann mir da jemand helfen?


Stefan