das ganze wie folgt ändern
Delphi-Quellcode:
Listbox1.Canvas.Brush.Color := clRed;
Listbox1.Canvas.Pen.Color := clWhite;
Listbox1.Canvas.FillRect(Rect);
Listbox1.Canvas.Font.Color := clRed; //<== natürli kannste auch ne andere farbe nehmen
Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);