关于文件的加密，请大家帮忙！

目前加密的功能块已经基本实现，但只能对字符串进行加密，希望大家能给个功能更好的。
我遇到的问题是：
我设定了buf:array[1..2048] of char;只有用blockread读出文件到buf，然后将buf赋值给一个string型的变量aaa，但当我再用blockwrite写入另一个文件时，文件的内容就变成了乱码，这是不是因为变量类型的不同造成的呢？
我现在是想将文件读出到buf后将其赋值给一个字符串变量，然后利用加密功能块对该字符串进行加密，然后将加密后的内容写入另外一个文件，但遇到的问题就是上边提到的乱吗的问题，请大家帮忙解决，由于目前已经头晕了，可能表达的不太清楚，大家见谅哈。
先谢谢了。