Необходимо сделать вставку <b></b> по краям выделенного текста в Memo1, к примеру, что бы получился такой результат: <b>01</b>. Кто сможет помочь?

void __fastcall TForm1::Button7Click(TObject *Sender)
{
 Memo1->SelText = "<b></b>";
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Text="<b>"+Memo1->SelText+"</b>";
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Memo1->SelText="<b>"+Memo1->SelText+"</b>";
}