Анимация должна вос производиться один раз. На рис. 1.42 приведена форма программы.

procedure TForml.FormCreate(Sender: TObject);
begin
try
Animatel.FileName := 'Delphi.avi';
Animatel.Play(0,Animate1.FrameCount,1);

except
on Exception do begin
Labell.Caption :=
'Ошибка доступа к файлу ' +
Animatel.FileName +
'. Файл не найден или анимация1 +
'сопровождается звуком.'

exp-
end;
end;
end;

// щелчок на кнопке Ok
procedure TForml.BitBtnlClick(Sender: TObject);
begin
Forml.Close;
end;

Рис. 1.42. Форма программы Анимация