Delphi-Quellcode:
with richedit1 do begin
Selstart := length(richedit1.Lines[0])+2; //+2 Für #13 und glaub #10
Sellength := length(richedit1.Lines[1])+2;
SelAttributes.Color := clGreen;
SelAttributes.Style := [fsBold];
end;
richedit1.lines.add('blub')
SelStart setzt den Startpunkt
SelLength die Länge der zu Formatierenden Textes