Delphi the corresponding JAVA-bit encryption BASE64

// application delphi unit comes with EncdDecd

procedure TForm1.btn3Click(Sender: TObject);
var
s: string;
begin
s := ‘abcdefg';
s := AnsiToUtf8(s);
s := EncodeString(s);   //DecodeString
showmessage(s);
end;