字符MD5加密

 uses System.Hash, System.DateUtils;
{$R *.dfm}
procedure TForm1.RzButton1Click(Sender: TObject);
var
  TMPMD5: string; //需要加密的信息
  md5: THashMD5; //加密后的信息
begin
   Edit2.Text := UpperCase(md5.GetHashString(Edit1.text));
end；