#pas
procedure _readCustomProperty(Result:PScData; e:id_element; cgt:PCodeGenTools; prop:id_prop);
begin
   if cgt.propGetType(prop) = data_str then
     begin
       replace(Result.value.sdata, '''', '''''');
       replace(Result.value.sdata, '\r\n', '''#13#10''');  // <--- замена сишных символов
       readCmp(e, cgt);
       if toUtf8 then
         toUnicode(Result.value.sdata);
     end;
end;