Как клонировать кнопку на форме?

Char Al[5]={'A','B','C','D','E'};
for (int j=1;j<=5;j++)
{
TButton*button=new TButton(this);
button->Parent=this;
button->Caption=Al[j-1];
button->Left=10;
button->Top=j*25+30;
button->Show();
}

      for (int i=0;i<33;i++) 
    {
        /* alvit - строка "АБВГ...ЭЮЯ"  sbet - 1-я кнопка */
        sbut[i] = new TSpeedButton(this);
        sbut[i]->Parent = Form1;
        sbut[i]->Font = sbet->Font; 
        sbut[i]->Caption = alvit[1+i]; 
        sbut[i]->Height=44; sbut[i]->Width=44; 
        sbut[i]->Top=272+(48*(i/11)); 
        sbut[i]->Left=64+48*(i%11); 
        sbut[i]->Enabled = false;
    }

  TMemoryStream *sLeds = new TMemoryStream;
   sLeds->WriteComponent(Shape99);
   delete Shape99;
   for (int i=0;i<10;i++)   /* TShape *led[10] - ãëîáàëüíàÿ*/
   {
     led[i] = new TShape(Form1);
     led[i]->Parent = Form1;
     sLeds->Position = 0;
     sLeds->ReadComponent(led[i]);
     led[i]->Left=160+i*28;
     led[i]->Name="mLed"+IntToStr(1+i);
   }
   delete sLeds;

void __fastcall TForm1::FormDblClick(TObject *Sender)
{
   if (koor+16 > ClientWidth) {      // koor - X  OnMouseDown
     if (ComponentCount) while(ComponentCount) delete Components[0] ;
     else {
       sM->Position = 0;            //  sM  -  MemoryStream  ãëîáàëüíàÿ
       sM->ReadComponent(Form1);
       // áåç ýòîãî ñâàëèâàåòñÿ íà îøèáêó ïðè ðàáîòå ->
       for (int i=0;i<10;i++) led[i]=((TShape*)FindComponent("mLed"+IntToStr(i+1)));
     }
   }
}

//---------------------------------------------------------------------------
class TMyButton: public TButton
{
    public:
        virtual __fastcall TMyButton(TComponent* Owner,String Caption="",int Left=0):TButton(Owner)
            {
                this->Caption= Caption;
                this->Left= Left;
                Width= 20;
                //...
            }
};
//---------------------------------------------------------------------------
std::vector<TMyButton*> vMyBtn;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for( size_t i=0; i<10; i++)
    {
        TMyButton* MyButtonX=   new TMyButton(this,String( char('A'+i) ),i*25);
        MyButtonX->Parent= this;
        vMyBtn.push_back(MyButtonX);
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
/* ХЗ что это и с чем его едят ... */
void RegisterClassesWithStreamingSystem()
{
    // Make sure that, as part of the startup
    // code, the streaming classes are registered
    // with the streaming system.
    #pragma startup RegisterClassesWithStreamingSystem
    Classes::RegisterClass(__classid(TButton));
    Classes::RegisterClass(__classid(TShape));
}
//---------------------------------------------------------------------------
TComponent* __fastcall Clone(TComponent* Component)
{
    std::auto_ptr<TMemoryStream> MS(new TMemoryStream);
 
    MS->WriteComponent(Component);
    MS->Seek(0, soFromBeginning);
 
    return MS->ReadComponent(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TButton* B = dynamic_cast<TButton*>(Clone(Button1));
    B->Parent=  this;
 
    B->Top=  rand()%Height;
    B->Left= rand()%Width;
    B->Caption= "Clone";
 
    TShape* Sh = dynamic_cast<TShape*>( Clone(Shape1) );
    Sh->Parent= this;
 
    Sh->Top=  rand()%Height;
    Sh->Left= rand()%Width;
}
//---------------------------------------------------------------------------

#include <memory>
#include <cassert>
//---------------------------------------------------------------------------
template<typename ComponentType>
ComponentType* __fastcall Clone(ComponentType* Object,String Name="")
{
        assert( !Object->ClassNameIs("TComponent") );
 
        std::auto_ptr<TMemoryStream> MS(new TMemoryStream);
        std::auto_ptr<TStringStream> SS(new TStringStream);
 
        MS->WriteComponent(Object);
        MS->Position = 0;
        ObjectBinaryToText(MS.get(), SS.get());
 
        String Text=
             (Name.IsEmpty() )
                 ?
                    StringReplace(SS->DataString,Object->Name+":","", TReplaceFlags()<<rfIgnoreCase)
                 :
                    StringReplace(SS->DataString,Object->Name,Name, TReplaceFlags()<<rfIgnoreCase);
 
        SS->Clear();
        SS->WriteString(Text);
        SS->Position = 0;
 
        MS->Clear();
        ObjectTextToBinary(SS.get(), MS.get() );
        MS->Position = 0;
 
        ComponentType* NewShape=  new ComponentType(Object->Owner);
        NewShape->Parent= Object->Parent;
 
        MS->ReadComponent(NewShape);
 
        return NewShape;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TShape* Sh = Clone(Shape1);
 
        Sh->Top=  rand()%(Height- Sh->Height);
        Sh->Left= rand()%(Width-  Sh->Width);
 
        TButton* B = Clone(Button1);
 
        B->Top=  rand()%(Height- B->Height);
        B->Left= rand()%(Width-  B->Width);
}
//---------------------------------------------------------------------------