procedure TForm2.update_mmedia_list(cache_dir:String);
var finfo:TSearchRec; attr_:Integer;
begin
attr_:=$0000003F;
self.media_file_list.Clear;
if FindFirst(cache_dir+'\*.*',attr_,finfo)=0 then begin
   if((Trim(finfo.Name)<>'.')and(Trim(finfo.Name)<>'..')) then media_file_list.Add(finfo.Name);
   while FindNext(finfo)=0 do begin
      if((Trim(finfo.Name)<>'.')and(Trim(finfo.Name)<>'..')) then media_file_list.Add(finfo.Name);
   end;
   findClose(finfo);
end;
self.media_file_list.Sort;
End;