Set Active to true to cycle through the frames specified by the StartFrame and StopFrame properties by the number of iterations specified in the Repetitions property. Set Active to false to interrupt the animation control when it is playing the animation file.

/*
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.
*/#include <memory> //for STL auto_ptr classvoid__fastcall TForm1::Button1Click(TObject *Sender)
{
// TForm *TempForm = new TForm(this); // The owner (TempForm) would clean this up.// But we want the form to go away when the proc exits.
std::auto_ptr<TForm> TempForm(newTForm(this));
TAnimate *pAnimate = newTAnimate(TempForm.get()); // The owner (TempForm) will clean this up.
pAnimate->Parent = TempForm.get();
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 < 90000000; i++)
Application->ProcessMessages();
}

{
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.
}procedure TForm1.Button1Click(Sender: TObject);
var
TempForm: TForm;
I: Integer;
begin
TempForm := TForm.Create(Self);
with TAnimate.Create(TempForm) dotry
Parent := TempForm;
CommonAVI := aviFindFile;
Active := True;
TempForm.Show;
// Simulate a lengthy process. Alter this value// to accommodate your machine speed.for I := 0 to 90000000 do Application.ProcessMessages;
finally
TempForm.Release;
end;
end;