//Старт показа
procedure TFormViewAnim.bnStartViewClick(Sender: TObject);
begin
//Начинаем показ выбранной анимации
StandartAnimate.Play(1, StandartAnimate.FrameCount, 0);
bnStartView.Enabled := False;
bnStopView.Enabled := True;
end;
Обработчик кнопки Стоп основан на вызове метода Stop компонента Animate и выглядит следующим образом: