SelAttributes im RichEdit

[TStringlist]

also auf den ersten Blick würde ich sagen:

1. Dein SelStart pointet immer genau hinter den letzten, eben gerade addierten, Char. RichEdit-intern hat der erste RichEdit-Text-Char nämlich den Index=0 ...ergo musst du mit Length(Textfeld.Text)-1 pointen

2. SelLength := +1;


Außerdem: Auf deine Weise wirst du auch die Cr- u. Lf-Bytes (Bytes durch die jede Memo- o. RichEdit-Zeile terminiert ist) mitformatieren, ...was dann aber ggf. durchaus auch nochmal zu gewissen (unvorhersehbaren) Fehlereffekten führen könnte.

edit: also normalerweise werden diese CrLf-Bytes natürlich immer mitformatiert, allerdings nur nicht extra ...als wären es ganz normale Chars, denen ich jetzt auch noch ein ganz spezielles Format verpassen möchte.