Как можно сделать "Шаблон" для TTabSheet

Вот наткнулся на проблемму.
Нужно зделать так что бы в ТPageControl добовлялись закладки и имели в себе элементы.
Впринцыпе я нашел выход, но не получается написать функцию для работы с этими элементами.
делаю так.
class TForm1 : public TForm
{
__published:
ТPageControl *PageControl

private:
public:
void __fastcall TForm1::AddPage(TObject *Sender);
__fastcall TsendMessForm(TComponent* Owner);
};
void __fastcall TForm1::AddPage(TObject *Sender)
{
TRichEdit *RichButtom = new TRichEdit(PageControl);
RichButtom->Align=alBottom;
RichButtom->Height=156;
RichButtom->Width=534;
RichButtom->ParentCtl3D=true;
RichButtom->ParentFont=false;
RichButtom->Enabled=true;
RichButtom->ParentColor=false;
RichButtom->PlainText=false;
RichButtom->ReadOnly=false;
RichButtom->ParentBiDiMode=true;
RichButtom->Font->Size = 10;

TTabSheet *pPage = new TTabSheet(PageControl);
pPage->Enabled = true;
pPage->PageControl = sendMessForm->PageControl;
pPage->Caption = "Закладка";

pPage->InsertControl(RichButtom);//вставляю обект

}

оно то работает.
Но написать функцию которая с встроенным обектом, не получается.
Темболее мне надо около 12 обектов всунуть.
А таким мокаром думаю - это не выход.
Скажите. Может както шаблон сделать можно. И при добовлении от будит иметь сразу нужный вид