Verwende mal
OleCheck anstelle von Succeeded.
Du kommst so evtl. an eine Fehlermeldung.
Delphi-Quellcode:
// vorher
if Succeeded(ps.Save(sa, True))
then
Result := ss.DataString;
// nachher
OleCheck(ps.Save(sa, True));
// bei Fehler gibt's ne Exception
Result := ss.DataString;