Base64Encode( des(Key,UTF8Encode(Memo1.Text),1,1,Key),Mystr); Base64Decode( des(Key,UTF8Encode(Memo1.Text),1,1,Key),Mystr);