подправьте коротенький код...

[DIgorevich]

Сообщение от Hacker19_90

Ну я не знаю я запарился его проверять уже!

Извини, это Я ошибся

[MyLastHit]

Hacker19_90 почему у меня не получается переделать код под EDIT?
Вот пишу(вместо строки - Edit1):

procedure TForm1.Button1Click(Sender: TObject);
var
d,d2:integer;
s,s1:string;
begin
s:=edit1.text;
s1:=s;
d:=pos('[В]', s);
delete(s,d,3);
d2:=pos('[/В]', s);
delete(s,d2,4);
richedit1.SelText:=s;
RichEdit1.SelStart:=d;
RichEdit1.SelLength:=(d2 -d -1);
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];
end;

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
var
  d,d2:integer;
  s,s1:string;
begin
  s:=Edit1.Text;
  s1:=s;
  d:=pos('[В]', s);
  delete(s,d,3);
  d2:=pos('[/В]', s);
  delete(s,d2,4);
  richedit1.Text:=s;
  RichEdit1.SelStart:=(d-1);
  RichEdit1.SelLength:=(d2 -d);
  RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];
end;

Извини, это Я ошибся

не ты прав ! Действительно работал некорректно, если слово в тегах было на первом месте!
Да MyLastHit
код может не срабатывать потому, то здесь я русскими пишу теги! перепиши у себя по английски