Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как в TListBox нарисовать Item своим цветом?

01.01.2007
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
Rect: TRect; State: TOwnerDrawState);
begin
 
With ListBox1 do
 
begin
   
If odSelected in State then
     
Canvas.Brush.Color:=clTeal { твой цвет }
   
else
     
Canvas.Brush.Color:=clWindow;
   
Canvas.FillRect(Rect);
   
Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
 
end;
end;

Hе забудьте установить свойство Style у своего ListBox в lbOwnerDrawFixed или в

lbOwnerDrawVariable.

Взято из https://forum.sources.ru