procedure TForm2.SaveVideoAudioFile1Click(Sender: TObject);
var src_,ext_:String;
begin try
if Sender<>nil then play_snd(1);
src_:=compile_path(get_ini_params('cache','media'))+'\'+media_file_list.Strings[minfo_list.ItemIndex];
if SysUtils.FileExists(src_) then begin
   media_save1.DefaultExt := StringReplace(ExtractFileExt(src_),'.','',[rfReplaceAll, rfIgnoreCase]);
   ext_:=lowercase(ExtractFileExt(src_));
   media_save1.Filter:='Multimedia file (*'+ext_+')|*'+ext_;
   media_save1.FileName :=ExtractfileName(src_);
   media_save1.InitialDir := my_wiki_dir;
   if media_save1.Execute then begin
      if fileexists(media_save1.filename) then SysUtils.DeleteFile(media_save1.filename);
      fop1.FileList.Clear;
      fop1.FileList.add(src_);
      fop1.DestFolder :=media_save1.filename;
      fop1.Execute;
   end; 
end else begin
   msgbox(Application.Title,'Selected file, is not found or renamed! refresh the media list and try again.',0,3);
   abfApplicationProperties1Restore(Sender);
end;
abfApplicationProperties1Restore(Sender);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'B80000');
end;End;