TRichEdit TextAttributes übernehmen

[user64629]

Genau so wollte ich es haben
Das mit der Selektion müsste ich dann aber in der Ausgabe machen.. muss ich dann jeden einzelnen Buchstaben markieren und ersetzen?
Ich probier es mal vielleicht klappt es ja sogar^^ Ich poste dann gleich mal den Text

Edit:

Delphi-Quellcode:

procedure TVerschluesseln_Formular.Text_ausgeben;
var i, j, Markierung: Integer;
begin
 with Eingabetext_Formular.Eingabetext
  do begin
      for i := 0 to Lines.Count - 1
          do for j := 0 to Length(Lines[i]) - 1
                 do begin
                     Markierung := Markierung + 1;
                     SetFocus;
                     SelStart := Markierung;
                     SelLength := 1;
                     SelText := Text_Array [i, j];
                    end;
               end;
end;

Es scheint nicht zu klappen, beide Texte sind noch vorhanden und es gibt ein unregelmäßiges Buchstabengewursel... Was schein ich falsch zu machen?