procedure TForm10.end_sec1Timer(Sender: TObject);
begin try
self.end_sec1.Enabled :=false;
if CheckBox1.Checked then begin
   form2.update_mmedia_list(form2.compile_path(form2.get_ini_params('cache','media')));
   form2.update_ui_media_component;
   if form2.media_file_list.Count>0 then form2.minfo_list.ItemIndex :=0;
         if form2.media_file_list.IndexOf(Label2.Caption)>-1 then self.mv_loader1.Enabled :=true;
   if is_shell_support_file(dwn1.FileName) then  self.mv_loader1.Enabled :=true;
   //try Close; except end;
end;
except end;End;