Wordwrapping buttons in THTMLDialog

How do you wordwrap text in buttons of your dialog? Here is a sample project that shows the problem.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "HTMLDialog"
#pragma resource "*.dfm"
TForm1 *Form1;
UnicodeString TabName = L"This is the name of a tab";
UnicodeString TabDescription = L"This is a very long description of an object on tab to verify whether it wraps";

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

HTMLDialog1->Caption = L"Are you sure?";
HTMLDialog1->Width = 400;
HTMLDialog1->HTMLText->Text = L"You are about to remove the current information plan from the [" + TabName + "] data source for this tab";
HTMLDialog1->CenterButton->Visible = true;
HTMLDialog1->CenterButton->Caption = L"Delete all [" + TabDescription + "] details from current plan for this tab";
HTMLDialog1->CenterButton->ModalResult = mrYes;
HTMLDialog1->RightButton->Visible = true;
HTMLDialog1->RightButton->Caption = L"Keep current plan";
HTMLDialog1->RightButton->ModalResult = mrNo;
HTMLDialog1->RightButton->Cancel = true;
HTMLDialog1->RightButton->Default = true;
if (HTMLDialog1->ShowModal() == mrYes) {

}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button2->WordWrap = true;
Button2->Width = 200;
Button2->Height = 100;
Button2->Caption = L"Delete all [" + TabDescription + "] details from current plan for this tab";
}

At this moment, there is no built-in support to have wordwrapped text in the buttons. Buttons are restricted to single line text.