Запрет стирания символов в RichEdit'е

[Alexandr17]

Собственно сама тема и есть вопрос. Как сделать запрет на стирания в RichEdit'е а то чет не работает как надо.

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
var i, i1:Integer;
begin
  Label1.Caption:='Код нажатй клавиши: '+IntToStr(Ord(Key));
  If Ord(Key) = 8 then
    if RichEdit1.Text[RichEdit1.SelStart] = ']' then
      if Ord(Key) = 8 then begin
        Key:=#0;
        i:=RichEdit1.SelStart;
        i1:=i;
        Repeat
          i:=i-1;
        Until ((RichEdit1.Text[i-1] = '[')and(RichEdit1.Text[i] = '$'))or(I<=0);
        If i > 0 then begin
          RichEdit1.SelStart:=i-2;
          RichEdit1.SelLength:=i1;
        end;
      end;
end;

[саша40]

1. Зайти в Интернет.
2. Найти описание компонента RichEdit
3. Подкопать соответствующие тебе свойство у компонента(оно просто должно быть).

[Alexandr17]

Да нету в гугле ничего про запрет стирания.

[Аватар]

RichEdit.SelAttributes.Protected

Но это не просто запрет стирания, а запрет любого изменения такого участка

[саша40]

Сообщение от Alexandr17

Да нету в гугле ничего про запрет стирания.

А в Яндексе есть. Вот читай и учись:
Ссылка

[Аватар]

Сообщение от саша40

А в Яндексе есть. Вот читай и учись:

Чему? Нет там блокировок обновления

[Alexandr17]

Сообщение от Аватар

RichEdit.SelAttributes.Protected

Но это не просто запрет стирания, а запрет любого изменения такого участка

Нет мне именно нужно в определенный момент запретить стрирать и разрешить потом вот что нужно.

При стирание текста в RichEdit если курсор стоит после скрипта и пользователь нажал клавишу стеререть то выделяем скрипт и при повторном нажатии клавиши стереть удаляем его иначе снимаем выделение

[Alexandr17]

Сообщение от саша40

А в Яндексе есть. Вот читай и учись:
Ссылка

Да нету там запрет на стирания. Я имею в виду в некоторых случая при отловли нажатия клавиши стереть запретить стирание желательно в событии KeyPress