procedure TForm1.oxGraphicButton6Click(Sender: TObject);
begin try
play_snd(1);
vr1.CreateNewFolder(vc1.path);
except end;End;