Código Delphi [-]cadena := StringReplace(cadena,'\?\Š',#13#10,[rfReplaceAll]);
cadena := StringReplace(cadena,'\?\Š',#13#10,[rfReplaceAll]);