Проблемка с подсветкой текста

[blackstersl]

Привет всем. Вот проблемка с подсветкой текста. Нашёл код на форуме, но там одна проблема, если печатать, а потом поменять положение курсора, текст на пишется на месте где біл поставлен курсор, а продолжает писать с последнего симвора в кшсрувше.Что делать?

const
  word: array[1..18] of string[9] = ('if','then','else','begin','end','for','to',
    'do','while','repeat','until','case','of','type','var','const','procedure',
    'function');
var
  k,i: integer;
begin
  for i:=1 to length(word) do
    begin
      k:=-length(word[i]);
      repeat
        k:=RichEdit1.FindText(word[i],k+length(word[i]),
           length(RichEdit1.Text)-k-length(word[i]),[stWholeWord]);
        RichEdit1.SelStart:=k;
        RichEdit1.SelLength:=length(word[i]);
        RichEdit1.SelAttributes.Style:=[fsBold];
        Application.ProcessMessages;
      until k < 0;
    end;
end;

[Kotofff]

Вот глянь ...
Немного другой алгоритм подсветки.

[Stilet]

Уже обсуждалось. Заряди поиском по форуму на слово "SelAttributes"