求助：delphi AES加解密算法

求助 请问位大神有delphi 的AES加解密算法demo的源码，请帮忙发过来一下，邮箱tao85love@
万分感谢！
例子：
待加密数据：0001840299837793DC67785815122263
使用密钥：  F61B62841608C632F89DC20C2D8533C2
加密结果：  68A0CFB341FDE9FAA6A5664090FE5EB3

非常感谢！