Syntaxhyperlighting selbst gemacht

[xy124]

noch mal eine (?dumme?) frage: wie mache ich Syntaxhighlighting am besten?
ich möchte in einem RichText oder Memo alles was in < > steht Syntaxhighlight.
zum suchen hab ich mir aschon folgendes gedacht:

Delphi-Quellcode:

for y:=0 to lines.count-1 do 
  for x:=1 to length(lines.strings[i]) do begin
    if lines.strings[i][x] = '<' then //mache blau
    //irgentwie so: aktuelleszeiochen. color := clblue/clblack
    if lines.strings[i][x] = '>' then //mache schwarz
  end;

ist diese suchjart nicht ein bisschen umständlich?

schonmal danke für eure antworten!!!