關於MD5的加密函式

請教一下Delphi的MD5函式用法
以下是網路上抓的PHP代碼，想改寫成Delphi的
但Delphi上卻沒有md5這個function
請問要怎麼用呢?function keyED($txt,$encrypt_key)
{
  $encrypt_key = md5($encrypt_key);
  $ctr=0;
  $tmp = "";
  for ($i=0;$i<strlen($txt);$i++)
  {
    if ($ctr==strlen($encrypt_key)) $ctr=0;
    $tmp.= substr($txt,$i,1) ^ substr($encrypt_key,$ctr,1);
    $ctr++;
  }
  return $tmp;
}