Reservierte Wörter hervorheben [RichEdit]

[Blackheart]

Hallo Leute
Ich wollte im RichEdit Reservierte Wörter hervorheben das klappt auch Soweit.
Jetzt hätte Ich es gern schon bei Eingabe des Textes, also zur Laufzeit.
Hätte da Jemand eine Idee und könnte Mir auf die Sprünge helfen.

Blackheart

Delphi-Quellcode:

var
  Form1: TForm1;
  Reserviert: Array [0..2] of String= ('begin', 'end', 'end.');
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
 s: String;
begin
  for j:=0 to 2 do
  begin
  s:=Reserviert[j];
  for i:= Length(RichEdit1.Text)-1  downto 0 do
    begin
    RichEdit1.SelStart:=i;
    RichEdit1.SelLength:=Length(s);
    if (Uppercase(RichEdit1.SelText)=Uppercase(s)) then
      begin
      RichEdit1.SelAttributes.Style:=[fsBold];
      end;
    end;
  end;
end;