procedure TForm_Options.BT_ApplyClick(Sender: TObject);
var Cipher: TDCP_rc4;
Code: string;
function MyCode (MC: string): string;
begin
if MC = '' then
MyCode := ''
else
Cipher.EncryptString(MC);
end; // MyCode
begin
.....
.....
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(cfgFile,TDCP_sha256); // initialize the cipher with a hash of the passphrase
Code := MyCode(Edit_MailServer.Text);
.....
.....
end; // BT_ApplyClick