Pls tell can I optimize this func? E.g. calc each char's PWord and read/write word. function SSwapEndian(const S: UnicodeString): UnicodeString; var i: integer; begin Result:= S; for i:= 1 to Length(Result) do Result[i]:= WideChar(SwapEndian(Ord(Result[i]))); end; -- Regards, Alexey