Delphi Base64编码/解码

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