Delphi-Quellcode:
HashHelper1:=THash_Helper.Create;
pack.MD5_Hash:=THash_MD5.CalcStream(data,data.size,TFormat_HEX,HashHelper1);
freeandnil(HashHelper1);
ähm... bin mir zwar jetzt nicht sicher, aber ist es nicht so dass man HashHelper1 nicht freigibt weil die Klasse von TInterfacedObject abgeleitet ist und diese einen Referenzzähler hat und wenn der 0 ist sich die Klasse selber frei gibt?