procedure TForm1.oxGraphicButton5Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
VirtualShellHistory.Back;
except end;End;