подсвечивание в ListBox

int IndexAtPos = -1;

void __fastcall TfTest::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  // если перерисовка элемента под курсором мыши - зададим цвет фона
  if ( Index == IndexAtPos ) ListBox1->Canvas->Brush->Color = clRed;

  // отобразим текст элемента
  ListBox1->Canvas->TextRect( Rect, Rect.Left + 2, Rect.Top + 2,
                              ListBox1->Items->Strings[Index] );
}

void __fastcall TfTest::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  // получим индекс элемента списка, находящегося под курсором мыши
  int Ind = ListBox1->ItemAtPos(Point(X,Y), true);

  // если новый индекс - запомним и перерисуем
  if ( IndexAtPos != Ind )
    {
      IndexAtPos = Ind; ListBox1->Repaint();
    }
}