Delphi - MadCrypt - 加密和解密字符串时出现问题

I am trying to encrypt a string but often only part of the string is being encrypted. I don't see anyone else having this problem so I am probably doing something wrong. I have the same problem in Delphi 2007 and 2009. I am using Win XP SP3. Here is the code:I am trying to encrypt a string but often only