lazarus：将字符串加密生成md5码

var
  sSrc, sDst: string;
begin
  sSrc := EditSrc.Text;
  sDst := MD5Print(MD5String(sSrc));
  EditDest.Text := sDst;