procedure TForm1.oxGraphicButton4Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
form4:=TForm4.Create(nil);
form4.ShowModal;
freeandnil(form4);
vr1.RefreshTree;
except end;End;