Циклическое создание кнопок на форме

TButton *Button;
 Button=new TButton(this);
 Button->Height=30;
 Button->Width=190;
 Button->Top=300;
 Button->Left=10;
 Button->Caption="кнопка";
 Button->Parent=this;

AnsiString data;
data = IdHTTP1->Get("тут  сылка на ваш сайт");

TStringList *list = new TStringList;
list = LoadFromFile("test.html");
 
AnsiString str1,str2;
int i,len,pos;
str1 = "Thanks for the ping.";
len = str1.Length();
 
for (i=0; i<list->Count; i++) {
  pos = list->String.Pos(str1);
  str2 = list->String.SubString(pos,len);
  if (str2 == str1) {
    ShowMessage(str1);
  }
}

AnsiString str1,str2,data;
data = IdHTTP1->Get("тут  сылка на ваш сайт");
int len,pos;
str1 = "Thanks for the ping.";
len = str1.Length();
pos = data.Pos(str1);
str2 = data.SubString(pos,len);
ShowMessage(str2);

void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
    //Label3->Caption=a;
    a++;
    for(i=0;i<CheckListBox1->Items->Count;i++)
    {
        if(a==10){
                if(CheckListBox1->Checked[i] == true)
        {
            dataGoogle = IdHTTP1->Get(httpGoogle+CheckListBox1->Items->operator [](i));
            if(dataGoogle=="Thanks for the ping.")
                Memo1->Lines->Add(dataGoogle+" - Успех --> "+i);
        }
        if(CheckListBox2->Checked[i] == true)
        {
            dataYandex = IdHTTP1->Get(httpYandex+CheckListBox1->Items->operator [](i));
            if(dataGoogle=="Thanks for the ping.")
                Memo1->Lines->Add(dataYandex+" - Успех --> "+i);
        }
        a=0;
        }
        Timer1->Enabled=false;
    }
}

pooh();
sleep(10000);
pooh();

bsSkinFileListView1->Folders...

ВызовКакайНибудьФункций();
СпимТипаОжидаем(10_секунд);
ВызовКакайНибудьФункций();

какойто_действие;
чтоби_оно_делалось_через_10_сек;
какойто_действие;

for (int i=0; i<10; i++) {
  ShowMessage("Это сообщение будет показано"
              "10 раз через каждые 3 секунды.");
  Sleep(3000);
}

if (Button->Click) {break;}

Application->ProcessMessages();

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Timer1->Interval = 5000;
  Timer1->Enabled = true;
  ShowMessage("Это сообщение будет появляться "
              "каждые 5 секунд, пока "
              "не будет нажата кнопка 1.");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled = false;
}