デルファイ対応JAVAビットの暗号化BASE64

//アプリケーションデルファイユニットはEncdDecdが付属しています

手順TForm1.btn3Click（送信者：TObjectを）;
VAR
S：文字列。
開始
秒：= 'ABCDEFG';
S：= AnsiToUtf8（S）。
S：= EncodeString（S）。// DecodeString
showmessage（複数可）。
終わり;