[scroyler]

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

Код:

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

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