1:
2:

RichEdit1.Lines.Add(S); //S enthält Text mit oder ohne Klammern
//und wie werden der Text innerhalb der Klammern und die Klammern nun kursiv?					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// Den Cursor ans Ende bewegen
RichEdit1.SelStart := RichEdit1.GetTextLen;

// Nicht fett
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];

// Text hinzufügen
RichEdit1.SelText := 'Text ohne Klammer(';

// Ab hier fett
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold];

// Noch mehr Text
RichEdit1.SelText := 'in der Klammer';

// Nicht mehr fett
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];

// Text hinzufügen (mit Zeilenumbruch)
RichEdit1.SelText := '('#10;