[[cHackAll]]

A la propiedad de tu ListBox llamada "Style" definela como lbOwnerDrawFixed en tiempo de diseño, en el Evento OnDrawItem copia el siguiente código:

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
  begin
   if odSelected in State then
    Brush.Color := clRed
   else
    Brush.Color := clWhite;
   FillRect(Rect);
   TextOut(Rect.Left + 4, Rect.Top + 1, ListBox1.Items[Index]);
  end;
end;

Suerte!