Reservierte Wörter hervorheben [RichEdit]

[Blackheart]

Ahso benutze Delphi 7 dann erstmal Danke für die Antworten.
Habs hinbekommen.

Delphi-Quellcode:

procedure ReserviertBold(RichEdit1: TRichedit);
var
 i,j:Integer;
 Bold, str: String;
begin
  for i:= 1 to length(RichEdit1.Text) do
    for j:= 0 to High(Reserviert) do
      begin
        Bold:= Reserviert[j];
        str:= Copy(RichEdit1.text, i, Length(Bold));
        if (str = Bold) then
          begin
            RichEdit1.SelStart:= i - 1;
            RichEdit1.Sellength:= length(Bold);
            RichEdit1.SelAttributes.style:= [fsbold];
            RichEdit1.SelStart:=length(RichEdit1.Text)-1;
            RichEdit1.SelAttributes.Style:= [];
          end;
      end;
end;

Blackheart