RichEdit - Schreibschutz für einzelne Zeilen

[runningsoft]

Hallo,

wie bekomme ich einen Schreibschutz für einzelne Zeilen in einem RichEdit hin?

Delphi-Quellcode:

procedure TForm11.Button2Click(Sender: TObject);
var i, TxtLength : integer;
begin
for I := 0 to 10 do
   begin
   RxRichEdit1.Lines.Add('Zeile ' + IntToStr(i));
   end;
RxRichEdit1.SelStart := 0;
TxtLength := (Length(RXRichEdit1.Text));
RXRichEdit1.SelLength := TxtLength;
with RXRichEdit1.SelAttributes do Protected := true;  //der bisher eingegebene Text ist jetzt schreibgeschützt
//jetzt wollte ich den Cursor auf die Position hinter dem erzeugten Text setzen
//und den Schreibschutz wieder aufheben --> geht leider nicht
RxRichEdit1.SelStart := TxtLength + 1;
RXRichEdit1.DefAttributes.Protected := False;
end;

Obiger code tut's leider nicht. Der Schreibschutz für die automatisch eingefügten Zeilen wird gesetzt, ich hab es aber leider noch nicht geschafft, ihn danach wieder aufzuheben.

Vielen Dank für eure Hinweise.