function ReplaceEncode(Const aBase64 : String) : String;
begin
  Result  := StringReplace(aBase64, #13, '', [rfReplaceAll]);
  Result  := StringReplace(Result, #10, '', [rfReplaceAll]);
  Result  := Result.TrimRight(['=']);
  Result  := StringReplace(Result, '+', '-', [rfReplaceAll]);
  Result  := StringReplace(Result, '/', '_', [rfReplaceAll]);
end;