var 
  Ani: TAnimate; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Ani := TAnimate.create(self); 
  Ani.parent := self; 
  Ani.left := 100; 
  Ani.top := 200; 
  try 
    Ani.ResID := $100; 
  except 
  end; 
  Ani.ResHandle := LoadLibrary('shdocvw.dll'); 
  Ani.visible := false; 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if Ani.Reshandle = 0 then exit; 
  Ani.Active := false; 
  FreeLibrary(Ani.ResHandle); 
  Ani.free; 
end; 
 
// Start 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if Ani.Reshandle = 0 then exit; 
  Ani.visible := true; 
  Ani.Active := true; 
end; 
 
// Stopp 
 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  if Ani.Reshandle = 0 then exit; 
  Ani.stop; 
  Ani.visible := false; 
end;