TMSFNCPlanner

after items.clear are possible selected items exists ?

pl.BeginUpdate;
try
pl.Items.Clear;

  if pl.SelectedItems.Count>0 then
    raise Exception.Create('Error');

That's possible, please also clear selected items.