delphi MD5

uses

  IdHashMessageDigest, System.SysUtils;

function MD5(S: String): String;

var

  ch: string;

begin

  with TIdHashMessageDigest5.Create do

  begin

    ch := HashStringAsHex(S);

    DisposeOf;

  end;

  result := ch.ToLower;

end;