lazarus：將字符串加密生成md5碼

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