[BlackX]

Привет всем!
Есть вот такой вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
  var
  l,i: integer;
  sym: string;
begin
  l:=length(RichEdit1.Lines.Text);
  for i:=0 to l do
    begin
      sym:=Copy(RichEdit1.Lines.Text,i,1);
      if (sym='G') or (sym='M') or (sym='F') then
        ColorText(RichEdit1,i-1,clGreen);
      if (sym='X') or (sym='Y') then
        ColorText(RichEdit1,i-1,clRed);
      end;
end;

С его помощью во всем тексте RichEdit нахожу нужные мне символы и перекрашиваю их собственной процедурой ColorText. Код работает, но ужасно медленно.
Может, кто-нибудь подскажет как его оптимизировать?
Заранее благодарен!