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