delphi自带md5的使用方法，在xe10.2版本测试通过。

uses单元中加入IdHashMessageDigest

procedure TForm1.Button1Click(Sender: TObject);
var
  MD5: TIdHashMessageDigest5;
begin
  MD5 := TIdHashMessageDigest5.Create;
  Edit2.Text := MD5.HashStringAsHex(Edit1.Text);
end;

貌似10.2中还有一个SHA的方法，回头慢慢研究一下。