No logro cambiar el color de un Item lixbox

[NEG1414]

Por fin... Gracias Bicho

El resultado final adaptado a C++ Builder ha sido

if (VectorSeleccionados[Index]== false)

{
ListBox->Canvas->FillRect(Rect);
ListBox->Canvas->Font->Color=clGray;
ListBox->Canvas->TextOut->(Rect.Left,Rect.Top,ListBox->Items->
Strings[Index])

}

Todo Esto En el Evento DrawItem y con la propiedad Style en OwerDrawFixed

Gracias