MD5

#include "System.Hash.hpp"
//-------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
String s = "333333кенты";
Edit1->Text = THashMD5::GetHashString(s);
}