加密单元如何使用？(50分)

[][][]
delphi开发者资源社区有128位和256位加密单元下载。
请问各位高手，加密单元是如何使用的？最好能给出例程来.
[8D][8D][8D]

找到密码，解密再使用。

放一个控件到FORM上。
//加密
procedure encrypt;
var r:string;
begin
cast1.key:='密码';
cast1.InputFile:='文件名';
cast1.OutputFile:='文件名';
cast1.EncipherFile;
end;

//解密
procedure deencrypt;
var r:string;
begin
cast1.key:='密码';
cast1.InputFile:='文件名';
cast1.OutputFile:='文件名';
cast1.DecipherFile;
end;

不过此控件有BUG，要自己修改一下。