procedure TForm10.dwn_kick1Timer(Sender: TObject);
var t1:String; label skip1;
begin try
self.dwn_kick1.Enabled :=false;
support_file:=(Trim(dwn1.filename)<>'');
if not support_file then begin
   file_1.FileName :=Label2.Caption;
   t1:=trim(ExtractFileExt(Label2.Caption));
   StrReplace(t1,'.','',[rfIgnoreCase, rfReplaceAll]);
   file_1.Filter :=t1+' file (*.'+t1+')|*.'+t1;
   if file_1.Execute then dwn1.FileName :=file_1.FileName else begin
      job_update:=false;
      Close;
      exit;
   end;
end;
if fileexists(dwn1.FileName) then begin
   if form2.get_ini_params('system','play_existing_file')='1' then goto skip1;
      if MsgBox(Application.Title,'File "'+ExtractFileName(dwn1.FileName)+'" is alreasy exists in your computer !, do you wants to download this file again ? ',1,1)=6 then
         DeleteFile(dwn1.FileName)
      else begin
         skip1:
         job_update:=true;
         if is_shell_support_file(dwn1.FileName) then
            ShellExecute(0,'open',PChar(dwn1.FileName),nil,nil,1)
         else begin
         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;
         end;
         Close;
         exit;
      end;
end;
if form2.mode_.Tag=0 then form2.mode_Click(Self);
go_code:=true;
dwn1.Download;
except end;End;