ListBox OnMouseOver Item-Farbe

[LTE5]

Wie bekommt man es hin, dass wenn man mit der Maus über ein Listboxitem fährt, sich die Farbe ändert?
Ich möchte eine sehr dezente Farbe nutzen, ein leichtes Grau.

Ratet ihr davon grundsätzlich ab oder gehört das schon zu Benutzerfreundlichkeit?

So weit bin ich, komme aber nicht weiter

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 Index: Integer;
 Point: TPoint;
 CCanvas: TCanvas;
begin
 Point.X := X;
 Point.Y := Y;
 Index := TListBox(Sender).ItemAtPos(Point, True);

 if Index > -1 then
  begin
   CCanvas := TListBox(Sender).Canvas;

   CCanvas.Brush.Color := clRed;
  end;
end;