[scroyler]

Вобщем проблема такая - надо в ричь едите окрасить часть текста,типо так - красный вводимый текст красный,пробовал так:

Код:

procedure TForm2.Button3Click(Sender: TObject);
   var s:string;
 
begin
 
RichEdit1.SelAttributes.Color:=clRed;
 
 
 s:='[здесь текст красного цвета]'+RichEdit1.SelText+'[здесь текст красного цвета]';
RichEdit1.SelText:=s;
end;

Но так красным окрашивается и текст между скобками(вся строка),как сделать чтобы было окрашено только то,что в '[здесь текст красного цвета]',а текст который пишется между скобками оставался чёрным.

[NumLock]

Код:

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.Text:='здесь текст красного цвета';
  RichEdit1.SelStart:=12;
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color:=clRed;
  RichEdit1.SelStart:=-1;
end;