Das Beispiel kann mal net funktionieren, weil Du es im FormCreate stehen hast
Dazu müsstest Du es in dem OnClick Ereignis von der ListBox machen.
Im OnDrawItem kannst Du die Einträge selbst Zeichnen, und dazu eine Farbe auswählen.
N' Beispiel zu OnDrawItem:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
With TListBox(Control) do begin
// Farbe wählen
If Odd(Index) then
Canvas.Font.Color:=clRed else
Canvas.Font.Color:=clLime;
// Fläche übermalen
Canvas.FillRect(Rect);
// Text zeichnen
Canvas.TextOut(Rect.Left+1, Rect.Top+1, Items[Index]);
end;
end;
Edit: Öha, Tags vergessen...