Comment utiliser l'évènement OnDrawItem d'une ListBox ?

Mon but est d'avoir le fond de ma ListBox en noir, avec une police de couleur claire.
J'ai donc fait comme ca :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TMainForm.ListBoxCtrlEspaceDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   ListBoxCtrlEspace.Canvas.Brush.Color := _CouleurF;
   ListBoxCtrlEspace.Canvas.Pen.Color := _Couleur;
   ListBoxCtrlEspace.Canvas.Font.Color := _Couleur;
   ListBoxCtrlEspace.Canvas.TextRect(Rect, 2, 2, ListBoxCtrlEspace.Items[Index]);
end;
Et j'obtiens une ListBox noire ... et vide.
Je ne comprend pas.

Comment faut-il s'y prendre ?