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