如何使用Delphi散列字符串？

uses
  IdHashMessageDigest5, IdHashSHA1;

function HashString(const AString: string): string;
var
  LHash: TIdHashMessageDigest5;
  LSHA1: TIdHashSHA1;
begin
  LHash := TIdHashMessageDigest5.Create;
  try
    Result := LHash.HashStringAsHex(AString);
  finally
    LHash.Free;
  end;

  LSHA1 := TIdHashSHA1.Create;
  try
    Result := LSHA1.HashStringAsHex(AString);
  finally
    LSHA1.Free;
  end;
end;

var
  LHashedString: string;
begin
  LHashedString := HashString('需要散列的字符串');
  ShowMessage('散列后的字符串: ' + LHashedString);
end;