[___toha___]

У меня есть некий текст в RichEdit. Это текст одного из языков программирования. Я хочу сделать подсветку синтаксиса. Кое-какую для слов я сделал (правда для больших текстов подглюкивает(точнее видно выделение))
Кстати вот код:

Код:

for i:=0 to smemo3.Lines.Count do begin   //в smemo3 хранятся по строкам слова, которым нужно дать окраску
if pos(smemo3.Lines.Strings[i], a) <> 0 then begin
smemo1.SelStart:=pos(smemo3.Lines.Strings[i], a) - 1;
smemo1.SelLength:=length(smemo3.Lines.Strings[i]);
smemo1.SelAttributes.Color := $00FF0000;
smemo1.SelLength:=0;
smemo1.SelStart:=o; //здесь "о" это место, где был указатель
end;
end;

Для больших кодов видно, как выделяется. Может вы знаете, как можно еще по проще сделать или чтобы не глючило и не видно выделения было.

Если же не знаете, то помогите в следующем.
Мне нужно как-то сделать, чтобы все, что находится в кавычках, выделялось так же другим цветом. Я пробовал делать, но либо бесконечно выделяется текст, либо вообще не работает. Помогите, а, пожалуйста...