procedure TForm1.VirtualShellHistoryChange(
  Sender: TBaseVirtualShellPersistent; ItemIndex: Integer;
  ChangeType: TVSHChangeType);
begin try
oxGraphicButton5.Enabled := VirtualShellHistory.ItemIndex > 0;
oxGraphicButton9.Enabled := oxGraphicButton5.Enabled;
except end;End;