procedure TForm1.oxGraphicButton8Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
vr1.SelectedFilesShowProperties;
except end End;