Uses CnBase64;
CnBase64.Base64Encode(Edit1.Text, Psw64);