/*
TAnimate, Active, CommonAVI example
To run this example, create a new project, place a button on the form, and insert the example code to the button click event. Place the button on the bottom of the form to leave room for the TAnimate component that will be created on the fly.
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TForm *TempForm = new TForm(this);
  TAnimate *pAnimate = new TAnimate(TempForm);
  pAnimate->Parent = TempForm;
  pAnimate->CommonAVI = aviFindFile;
  pAnimate->Active = true;
  TempForm->Show();
  // Simulate a lengthy process.  Alter this value
  // to accommodate your machine speed.
  for (int i = 0; i < 900000; i++)
    Application->ProcessMessages();
  delete TempForm;
}
 
