escape & in DelphiDataSetToRtc

[jorgen]

I do this:
class function TServer_Utils.JSONFromDataset(ADataset: TDataSet): String;
var
  rtcDS: TRtcDataSet;
  AHugeString: TRtcHugeString;
begin
  AHugeString := nil;
  rtcDS := TRtcDataSet.Create;
  try
    AHugeString := TRtcHugeString.Create;
    DelphiDataSetToRtc(ADataset, rtcDS); // This function is in the "rtcDB" unit
    rtcDS.to_JSON(AHugeString);
    Result := AHugeString.Get;
  finally
    FreeAndNil(rtcDS);
    FreeAndNil(AHugeString);
  end;
end;

The problem is the if a filed contain & like this
tolist=admin@&subject=Moter&body=Moter&reporttype=1&reportID=20000920&response=Sendt
it is removed (with the word after),
like this:
tolist=admin=Moter=Moter=1=20000920=Sendt


I have updated both Delphi and RTC so i may have forgotten something. This code worked before. Has something changed) Should I change something?

Jørgen