ValueListEditor изменения цвета в ячейке

void __fastcall TMainForm::ValueListEditor1StringsChange(TObject *Sender)
{
if(ValueListEditor1->Values["Îòäåë"]=="Íîâûé îòäåë...")
  {
   ValueListEditor1->ItemProps[2]->ReadOnly = false;
  }

class TForm1
               : public TForm {
__published: // IDE-managed Components
    TValueListEditor *val_lst_1;
    void __fastcall val_lst_1StringsChanging( TObject *Sender );
    void __fastcall val_lst_1DrawCell( TObject *Sender, int ACol, int ARow, TRect &Rect,
        TGridDrawState State );
    void __fastcall val_lst_1StringsChange( TObject *Sender );
 
private: // User declarations
public:  // User declarations
 
    __fastcall TForm1( TComponent *Owner );
    std::vector <bool> vals_to_paint;
    std::auto_ptr <TStringList> val_lst_1_state;
};

__fastcall TForm1::TForm1( TComponent *Owner )
               : TForm( Owner ) {
    // сохраняем изначальное состояние
    val_lst_1_state.reset( new TStringList( ) );
    val_lst_1_state->Assign( val_lst_1->Strings );
    vals_to_paint.resize( val_lst_1->Strings->Count );
}
void __fastcall TForm1::val_lst_1StringsChanging( TObject *Sender ) {
    // можно сохранять состояние и каждый раз при изменениях, если надо
    // val_lst_1_state->Assign( val_lst_1->Strings );
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::val_lst_1StringsChange( TObject *Sender ) {
    // анализируем изменения, смотрим, чего красить надо
    for ( size_t i = 0; i < val_lst_1->Strings->Count; ++i ) {
        vals_to_paint[i + 1] = val_lst_1_state->Strings[i].Compare( val_lst_1->Strings->Strings[i] ) == 0 ? false : true;
    }
    val_lst_1->Repaint( );
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::val_lst_1DrawCell( TObject *Sender, int ACol, int ARow, TRect &Rect,
    TGridDrawState State ) {
    // закрашиваем нужные ячейки
    if ( ACol && vals_to_paint[ARow] ) {
        val_lst_1->Canvas->Brush->Color = clWebOrange;
        val_lst_1->Canvas->FillRect( Rect );
        val_lst_1->Canvas->TextOut( Rect.left + 2, Rect.top + 2, val_lst_1->Cells[ACol][ARow] );
    }
}

void __fastcall TForm3::SkillLevelStringsChanging(TObject *Sender)
{
    for(int o = 1;  o < 11; o++)
 {
  
   if(CopyList1->Values[o] != SkillLevel->Values[o])
    {
       SkillLevel->Canvas->Brush->Color = clRed;
 
    }
  }
}
//---------------------------------------------------------------------------

    __fastcall TForm1( TComponent *Owner );
    std::vector <bool> vals_to_paint;
    std::auto_ptr <TStringList> val_lst_1_state;