Schriftfarbe in Listbox

[Hansa]

Hi,

in einer Listbox definiere ich die Farben folgendermaßen :

Delphi-Quellcode:

      Listbox1.Canvas.Brush.Color := clRed;
      Listbox1.Canvas.Pen.Color := clWhite;
      Listbox1.Canvas.FillRect(Rect);
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);

Brush läuft auch richtig, aber die Schriftfarbe bleibt immer schwarz. Da kann ich machen, was ich will. 8)