Selected items in ListView

After running a routine to select various items in a ListView, none of
the selected items shows up as selected. I've tried Repainting,
Refreshing, Invalidating and Updating the ListView with no result.
What is either me or Delphi 5 doing wrong?

TIA