title: Delphi XE2 listview artifacts
body: <p>I am using listview in vsreport virtual mode, have two columns and after I populate the list, select one row, and then select some other row there's an artifact left on a previously selected row, see image below. How to fix this?<img src="https://i.stack.imgur.com/PYAd0.png" alt="enter image description here"></p>
  
  <p>and this is my code that gets the data from an array</p>
  
  <pre><code>procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
  begin
    Item.Caption := FloatToStr(Item.Index + 1);
    Item.SubItems.Add(FloatToStr(a[Item.Index]));
  end;
  </code></pre>
  
  <p>When I hover the mouse, the artifacts dissapear.
  Thanks</p>