Änderung des Schrift-style

[Matze]

Und noch etwas: Ich habe dir doch bereits den Tipp gegeben, öfters "else" zu nutzen. Das ist erstens übersichtlicher und zweitens musst du bei Änderungen im Code nicht 2 Stellen anpassen.

Ändere das hier ...

Delphi-Quellcode:

if s2 then RichEdit1.SelAttributes.Style := RichEdit1.Font.Style + [fsbold];
if not s2 then RichEdit1.SelAttributes.Style := RichEdit1.Font.Style - [fsbold];

also besser in dies hier:

Delphi-Quellcode:

if s2 then
  RichEdit1.SelAttributes.Style := RichEdit1.Font.Style + [fsbold]
else
  RichEdit1.SelAttributes.Style := RichEdit1.Font.Style - [fsbold];

Das habe ich dir oben nicht umsonst so gelöst.
Und gewöhne dir an, den Code zu formatieren, damit man auf den ersten Blick sieht, was zusammen gehört. Das kann dir viele Fehler ersparen.