간단히 Indy에 내장된 것을 쓰셔도 됩니다. (Indy 10 기준)

델파이 코드로는

function MD5File(const FileName: string): string;
var
  IdMD5: TIdHashMessageDigest5;
  FS: TFileStream;
begin
 IdMD5 := TIdHashMessageDigest5.Create;
 FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
 try
   Result := IdMD5.HashStreamAsHex(FS)
 finally
   FS.Free;
   IdMD5.Free;
 end;
end;

거짓말처럼 님이 쓰신 글 :
: MD5 CHECKSUM 을 이용하여
:
: 파일 CHECKSUM 값을 얻고 싶은데 혹시 소스 구할 수 있을까요??