[Страдалецъ]

А это туда-же наборчик уже под паскаль.

Код:

procedure TSynRichEdit.CreatePascalDictionary;
begin
 Add('begin', clBlue);
 Add('end', clBlue);
 Add('procedure', clBlue);
 Add('string', clBlue);
 Add('for', clBlue);
 Add('to', clBlue);
 Add('do', clBlue);
 Add('if', clBlue);
 Add('then', clBlue);
 Add('else', clBlue);
 Add('repeat', clBlue);
 Add('until', clBlue);
 Add('in', clBlue);
 Add('or', clBlue);
 Add('not', clBlue);
 Add('nil', clBlue);
 Add('array', clBlue);
 Add('of', clBlue);
 Add('record', clBlue);
 Add('interface', clBlue);
 Add('uses', clBlue);
 Add('type', clBlue);
 Add('var', clBlue);
 Add('with', clBlue);
 Add('implementation', clBlue);
 Add('object', clBlue);
 Add('case', clBlue);
 Add(#39, clGreen);
end;