Dataset GetFieldNames setzt Stringlist Delimiter zurück

[Blackpit]

Hallo,
ist jemand dieser Fehler in Seattle bekannt?
Bei einem an Uwe's "Poor Man’s CSV Export" angelehnten Code wird mir der gesetzte Delimiter nach Aufruf von GetFieldNames default gesetzt.
wwClientDataSet1 ist ein TwwClientDataSet.

Delphi-Quellcode:

  writer := TStreamWriter.Create('DataSet.csv');
    try
      lst := TStringList.Create();
      try
        lst.QuoteChar := '"';
        lst.Delimiter := ';';
        lst.StrictDelimiter := true;
        wasActive := wwClientDataSet1.Active;
        try
          wwClientDataSet1.Active := true;
          wwClientDataSet1.GetFieldNames(lst);  // <-- hier wird lst.Delimiter default
          writer.WriteLine(lst.DelimitedText);
          wwClientDataSet1.First;

Kennt das jemand?