RichEdit. Подсветка синтаксиса.

[GRIPH]

Пишу текстовый редактор с подсветкой синтаксиса, никак не могу правильно подсветить комментарии. Помогите пожалуйста.

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm3 = class(TForm)
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  cp:integer;
implementation

{$R *.dfm}
//Выделить фрагмент текста
procedure SelIt(R:TRichEdit;start,len:integer;color:TColor);
//где R - рабочий экземпляр класса,
//start - начальная позиция для выделения
//len - длина выделяемого фрагмента
//color - цвет
begin
  R.SelStart:=start;
  R.SelLength:=len;
  R.SelAttributes.Color:=color;
end;

//Выделение однострочного комментария `//`
procedure SelComment(R:TRichEdit);
//где R - рабочий экземпляр класса
var i,j,c:integer; line:string;
//где i - счётчик линий
//j - счётчик символов внутри линии
//с - счётчик букв в формате RichEdit (нумерация с 0,
//    в конце каждой строки два нечитаемых спецсимвола)
//line - строка из RichEdit
begin
c:=0;
for i:=0 to R.Lines.Count do begin
  line:=R.Lines[i];
  for j:=1 to Length(line)-1 do begin
    if (line[j]='/') and (line[j+1]='/') then SelIt(R,c+j-1,Length(line)-j+1,clGreen);
  end;
  c:=c+Length(line)+2;
end;
end;

//Выделение многострочного комментария `{...}`
procedure SelComment2(R:TRichEdit);
//где R - рабочий экземпляр класса
var i,j,c:integer; line:string; inComment:boolean; startSel,lengthSel:integer;
//где i - счётчик линий
//j - счётчик символов внутри линии
//с - счётчик букв в формате RichEdit (нумерация с 0,
//    в конце каждой строки два нечитаемых спецсимвола)
//line - строка из RichEdit
//inComment - флаг состояния текста `в комментарии`
//startSel - позиция начала многострочного комментария
//lengthSel - длина выделяемого текста
begin
c:=0;
inComment:=false;
startSel:=0;
lengthSel:=0;
for i:=0 to R.Lines.Count do begin
  line:=R.Lines[i];
  for j:=1 to Length(line) do begin
    if inComment then begin
      lengthSel:=lengthSel+1;
    end;
    if line[j]='{' then begin inComment:=true; startSel:=c+j; end;
    if line[j]='}' then begin inComment:=false; SelIt(R,startSel,lengthSel-1,clRed); end;

  end;
  c:=c+Length(line)+2;
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
SelComment(RichEdit1);
SelComment2(RichEdit1);
end;

end.

[Alex2009]

Вот тебе ссылка и поищи по форуму
ссылка1

[GRIPH]

Спасибо, разобрался