Hallo,
in RichEdit.Text ist die Formatierung nicht enthalten.
Ausschnitt aus Deinem Code:
RichEdit1.Text := (Seitenzahlen.Text+'/'+Titel.Text+'/'+Datum.Text+'/'+ #13#10) + RichEdit1.Text;
Mit der Zeile überschreibst Du die zuvor angelegten Formatierungen.
Ersetz mal die Zeile(n) durch:
Delphi-Quellcode:
RichEdit1.SelStart := 0;
RichEdit1.SelText := (Seitenzahlen.Text+'/'+Titel.Text+'/'+Datum.Text+'/'+ #13#10);
Wenn im Richedit formatierter Text enthalten ist kann man nicht mit der Eigenschaft Text zur Veränderung des RichEdit-Inhalts arbeiten.
Ps.:
function Prüfen(Hilfsvar : integer; Text : String; var Örtchen : String) :boolean;
das funktioniert?
