richedit formatieren

[Nisbo]

gesucht im gesamten forum mit: richedit formatieren aber in den 5 ergebnissen nichts gefunden, bei google hatte ich es auch schon mal versucht genau wie in einem anderen board

also ich habe ein RichEdit und es geht darum die ausgabe wie syntaxhighlighting zu formatieren, schön wäre es wenn es da schon was fertiges geben würde aber ich gebe mich auch erstmal mit einer einfachen variante zufrieden

ich habe bis jetzt diesen code

Delphi-Quellcode:

RichEdit2.Lines.Clear;
RichEdit2.SelAttributes.Color := clgreen;
RichEdit2.Lines.Add('// START - '  + Edit4.Text) ;
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('if(' + dateiname + proficode + '){');
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('    $var_rl = "' + links_rechts + '";') ;
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('    $var_id = "' + Edit1.Text + '";');
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('}');
RichEdit2.SelAttributes.Color := clgreen;
RichEdit2.Lines.Add('// ENDE - ' + Edit4.Text);

in den variabeln bzw Tedits ist nur text drinn
so wie es jetzt ist kann ich ganze zeilen farbig oder fett schreiben aber nicht einzelne wörter

und genau das ist meine frage wie man z.b. sowas hinbekommt das das if blau ist, der $ zeichenauch blau, die klammern z.b. braun usw

Bsp:
if($name == "test"){