procedure TMainForm.JamShellListChange(Sender: TObject; Item: TJamShellListItem; Change: TItemChange); begin MoveForwardButton.Enabled := JamShellTree.IsMovePossible(1); MoveBackButton.Enabled := JamShellTree.IsMovePossible(-1); end;