/*
TProgressBar, Align example
  dynamically create a TProgressBar control
  and align it to the bottom of the form.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TProgressBar *ProgressBar = new TProgressBar(this);
  ProgressBar->Parent = this;
  ProgressBar->Align = alBottom;
}
 
