Перемещение и сортировка вкладок PageControl

  int i=1;
  int j;
  int k;
  int n;
//...
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for (k = 0; k < PageControl1->PageCount; k++) {
    if ("Str"+IntToStr(k) == "Str"+IntToStr(i)) {
      i=k;
      i++;
    }
    for (n = 1; n < PageControl1->PageCount; n++)  {
      if (PageControl1->Pages[k]->Name == "Str"+IntToStr(k+1)) {
        i=k;
      }
      else if (PageControl1->Pages[1]->Name != "Str1") {
        i=1;
      }
      else {
        i=PageControl1->PageCount;
      }
    }
  }
  TTabSheet *NewTabSheet = new TTabSheet(this);
  NewTabSheet->PageControl = PageControl1;
  NewTabSheet->Caption = "Стр. " + IntToStr(i);
  TMemo *NewMemo = new TMemo(this);
  NewMemo->Parent = NewTabSheet;
  NewMemo->Align = alClient;
  PageControl1->ActivePage = NewTabSheet;
  NewTabSheet->Name = "Str"+IntToStr(i);
  ListBox1->Items->Add("Стр. " + IntToStr(i));
  //PageControl1->Pages[i]-> = i; Вот тут я делаю саму сортировку.
  i=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  for (j = 0; j < PageControl1->PageCount; j++) {
    if (PageControl1->Pages[j]->Caption == ListBox1->Items->Strings[ListBox1->ItemIndex]) {
      PageControl1->Pages[j]->Free();
    }
  }
  ListBox1->DeleteSelected();
}

PageControl1->Pages[1]->PageIndex = 0;

void __fastcall TForm1::PageControl1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
     /* int ox, oy ; */
     ox=X; oy=Y;
     PageControl1->BeginDrag(-1,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PageControl1DragOver(TObject *Sender,
      TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
       Accept = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PageControl1DragDrop(TObject *Sender,
      TObject *Source, int X, int Y)
{
    PageControl1->Pages[PageControl1->IndexOfTabAt(ox,oy)]->PageIndex =
       PageControl1->IndexOfTabAt(X,Y);
}