function TXc12DataSST.AddString(AText: AxUCString): integer; ... if IsUnicode(AText) then P := MakeString(AText) else P := MakeCompressedString(AText); // always goes here, despite that AText = 'Hüco' ... end; ...... function TXc12DataSST.IsUnicode(const S: AxUCString): boolean; var i: integer; W: ...