AnimationEffect example acAnimationEffect component

procedure TMainForm.ButtonClick(Sender: TObject);
begin
  with TAboutForm.Create(Application) do
   try
     acAnimationEffect1.Open;
     ShowModal;
     acAnimationEffect1.Close;
   finally
     Free;
   end;
end;