function ReplaceSChar(const str:string):string;
var i,j,k,w:integer;
    t,s:string;
begin
  t := ''; i := 1; s := str;

  while StrReplace( S, '\n\r', #13#10) do;
  while StrReplace( S, '\r\n', #13#10) do;
  while i<=Length(s) do begin
    if (s[i] = '\')and(i < Length(s)) then begin
      inc(i);
      if s[i] = '\' then t := t + '\'
      else if s[i] = 'n' then t := t + #13
      else if s[i] = 'r' then t := t + #10
      else if s[i] = 't' then t := t + #9
      else if s[i] in ['0'..'9'] then begin
        w := 0;
        for j := 1 to 3 do begin //ограничение на текстовую длину числа
          k := w*10 + ord(s[i]) - ord('0');
          if k > 255 then break; //ограничение на величину числа
          w := k; inc(i);
          if i > Length(s) then break; //правая граница входной строки
          if not(s[i] in ['0'..'9']) then break; //значит число кончилось
        end;
        dec(i); t := t + char(w);
      end else t := t + '\' + s[i];
    end else t := t + s[i];
    inc(i);
  end;
  Result := StringToCode(t);
end;

procedure TForm1.Button1Click(Sender: TObject);
const f='c:\elements.sql';
begin
 Memo1.Lines.LoadFromFile(f);
 ListBox1.Items.LoadFromFile(f);
 CheckListBox1.Items.LoadFromFile(f);
 RichEdit1.Lines.LoadFromFile(f);
end;

Add(MainForm,2953706,231,175)
{
}
Add(ListBox,7564829,469,231)
{
 Top=125
 Width=710
 Height=85
}
Add(Button,12100919,231,245)
{
 Left=5
 Top=225
 link(onClick,2797692:doExecute,[])
}
Add(Replace,7691214,378,252)
{
 SubStr=""
 DestStr="

"
 link(onReplace,7564829:doText,[])
 link(Str,2660603:Text,[])
}
Add(Hub,6867652,329,245)
{
 link(onEvent1,2660603:doLoad,[(369,251)(369,195)])
 link(onEvent2,7691214:doReplace,[])
}
Add(Memo,2660603,378,161)
{
 Left=5
 Top=5
 Width=705
 ScrollBars=2
}
Add(ODialog,2797692,280,245)
{
 link(onExecute,6867652:doEvent1,[])
}

#pas
  t := '';
  i := 1; 
  s := str;  // имеем в s строку 'hello\r\n\r\nword'

  while StrReplace( S, '\n\r', #13#10) do; // после первой же итерации имеем 'hello\r'#13#10'\nword'
  while StrReplace( S, '\r\n', #13#10) do; // а тут уже ничего не изменится, потому что заменять больше нечего

  while StrReplace( S, '\n\r\n\r', #13#10#13#10) do;
  while StrReplace( S, '\r\n\r\n', #13#10#13#10) do;
  while StrReplace( S, '\n\r\r\n', #13#10#13#10) do;
  while StrReplace( S, '\r\n\n\r', #13#10#13#10) do;
  while StrReplace( S, '\n\r', #13#10) do;
  while StrReplace( S, '\r\n', #13#10) do;

function ReplaceSChar(const str:string):string;
var i,j,k,w:integer;
    t,s:string;
begin
  t := ''; i := 1;s := str;
  while StrReplace( S, '\n\r\n\r', #13#10#13#10) do;
  while StrReplace( S, '\r\n\r\n', #13#10#13#10) do;
  while StrReplace( S, '\n\r\r\n', #13#10#13#10) do;
  while StrReplace( S, '\r\n\n\r', #13#10#13#10) do;
  while StrReplace( S, '\n\r', #13#10) do;
  while StrReplace( S, '\r\n', #13#10) do;
  while i<=Length(s) do begin
    if (s[i] = '\')and(i < Length(s)) then begin
      inc(i);
      if s[i] = '\' then t := t + '\'
      else if s[i] = 'n' then t := t + #10
      else if s[i] = 'r' then t := t + #13
      else if s[i] = 't' then t := t + #9
      else if s[i] in ['0'..'9'] then begin
        w := 0;
        for j := 1 to 3 do begin //ограничение на текстовую длину числа
          k := w*10 + ord(s[i]) - ord('0');
          if k > 255 then break; //ограничение на величину числа
          w := k; inc(i);
          if i > Length(s) then break; //правая граница входной строки
          if not(s[i] in ['0'..'9']) then break; //значит число кончилось
        end;
        dec(i); t := t + char(w);
      end else t := t + '\' + s[i];
    end else t := t + s[i];
    inc(i);
  end;
  Result := StringToCode(t);
end;