SelectedRows.CurrentRowSelected 和 DeleteItem

procedure TBMListEh.SetCurrentRowSelected(Value: Boolean);
var
  Index: Integer;
  Current: TUniBookmarkEh;
begin
  Current := CurrentRow;
  if Find(Current, Index) = Value
    then Exit;
  if Value
    then InsertItem(Index, Current)
    else DeleteItem(Index);
end;

2者基本是一致的。如果操作是 不选，那么 DeleteItem 速度更快一点，直接。