Пре и Пост приставки к выделеному тексту

[Veiron]

Как реализовать такое:

Выделяем в RicthEdit (или в Memo) текст, нажимаем кнопку [b] например и к выделенному тексту слева прибавляется <b> а справа </b>.

Было бы здорово если бы этот текст выделялся к примеру в жирный и передавался как обычный но с тегами, это конечно было бы красиво но наверно сложно, подскажите пожалуйста хотя бы с первой частью...?

[mihali4]

Например, вот так:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=Ord('B') then
begin
Memo1.SelText := '<b>'+Memo1.SelText+'</b>';
end;
end;

А чтоб вам совсем скучно не было, ненужный лишний символ 'b' (после нужных) удалите сами.

[Veiron]

Во, большое спасибо, особенно идея с горячей клавишей…