procedure TForm2.oxGraphicButton15Click(Sender: TObject);
begin try
play_snd(1);
if media_file_list.Count=0 then exit;
if minfo_list.ItemIndex=minfo_list.Items.Count-1 then exit;
if minfo_list.ItemIndex=-1 then begin
   minfo_list.ItemIndex:=minfo_list.Items.Count-1;
   minfo_listClick(Sender);
   exit;
end;
minfo_list.ItemIndex:=minfo_list.ItemIndex+1;
minfo_listClick(Sender);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C60000');
end;End;