listview selected farbe ändern

[made in Germany]

jop, ownerdraw noch auf true setzen, funktioniert.

wie kann ich noch ein anderes item markieren, von dem ich die position (i) weiß?

hab einen ansatz, der jedoch nicht funktioniert

Delphi-Quellcode:

var
recti :TRect; 

  if i > -1 then begin
      Canvas.Brush.Color := clred;
      Canvas.Font.Color  := clblack;
      recti := Listview1.Items[i].DisplayRect();    // was muss da bei DisplayRect rein?
     Canvas.FillRect(recti);
    Canvas.TextOut(recti.Left, recti.Top, Listview1.i]);
    end;