function DecodeString(Str, deStr: string ): TStringList;var StringList:TStringList;begin StringList: = TStringList.Create; stringList.Text : = StringReplace(Str, deStr,# 13 , [rfReplaceAll]); result : = stringList;end;