* applied a memory leak fix by Charlie Ikeson

git-svn-id: trunk@87 -

packages/base/md5/md5.pp

@@ -351,6 +351,7 @@ begin
       If (Count>0) then
         MD5Update(Context, Buf^, Count);
     Until (Count<BufSize);
+    FreeMem(Buf,BufSize);
     Close(F);
     end;
   MD5Final(Context, Result);