SelAttributes im RichEdit

[Hügel]

Hallo, ich habe ein Problem mit der Textart (Größe, Farbe, Style etc) in einem Richedit:
Aus einem normalen Memo wird ein Text gelesen, in dem auch solche Textstyle-Infos ahnlich dem BBCode enthalten sind. Diese Infos werden in einer Prozedur ausgelesen und in Variablen gespeichert. anschließend wird das entsprechende Zeichen markiert und ihm werden per SelAttributes die Variablen zugewiesen. Das ganze geschieht in einer Schleife, die immer zeichenweise vorgeht und das nächste Zeichen an den Text im Richedit anhängt.

Delphi-Quellcode:

      RichEdit1.SelStart := Length(RichEdit1.Text)  - 1;
      RichEdit1.SelLength := 1;
      with RichEdit1.SelAttributes do
        begin
        Name := TextSchrift;
        Color := TextFarbe;
        Size := TextGroesse;
        Style := TextStyle;
        end;

Das Problem ist nun, dass nur die aller ersten Textstyle-Infos auch angewendet werden, sobald einmal der normale Text angefangen hat, werden in Infos zwar ausgelesen und in den Variablen gespeichert (per Breakpoints geprüft) aber nicht mehr auf den darauf folgenden Text angewendet.

Woran kann das liegen???
Help me plz