[AlexandrV]

Есть код

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  p:=1;
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
Var ghj:Integer;
begin
  for ghj := 0 to Length(Form1.RichEdit1.Text) do begin
    if PosEx('Begin',Form1.RichEdit1.Text,p) > 0 then begin
      Form1.RichEdit1.SelStart:=PosEx('Begin',Form1.RichEdit1.Text,p)-1;
      Form1.RichEdit1.SelLength:=5;
      Form1.RichEdit1.SelAttributes.Color:=clBlue;
      Form1.RichEdit1.SelStart:=Length(Form1.RichEdit1.Text);
      p:=Form1.RichEdit1.SelStart;
      Form1.RichEdit1.SelAttributes.Color:=clBlack;
    end;
  end;

Такто работаеет но надо сделать также как это сделан в самой делфи нужно искать строку Begin и красить ее а если у нее после покраски стереть например 1 символ то красить обратно в черный можете помочь