[san-46]

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do begin
    if Index mod 2 = 0 then
      Brush.Color := clSkyBlue
    else
      Brush.Color := clWhite;
    FillRect(Rect);
    TextOut(Rect.Left + 2, Rect.Top, (Control as TListBox).Items[Index])
  end;
end;

Создается процедура на свойство OnDrawItem. В ней выводится текст и, в которой применяется расцветка по условиям. В этом примере нечетные строки в ListBox'е подсвечиваются светлосиним цветом.
Предварительно свойство ListBox'а Style устанавливается в значение lbOwnerDrawFixed.

И чего "гуглить как прокаженному", если в справке Delphi есть примеры именно по этому вопросу.