ValueListEditor: Add & Delete

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        TStringList *sl = new TStringList;
        sl->Add("Да");sl->Add("Нет");
 
        TStringList *s2 = new TStringList;
        s2->Add("Плохо");s2->Add("Хорошо");s2->Add("Отлично");
 
        ValueListEditor1->InsertRow("Маска","",true); //ValueListEditor1->Keys[1]="Маска";
        ValueListEditor1->ItemProps[0]->PickList = sl;
 
        ValueListEditor1->InsertRow("Качество","",true); //ValueListEditor1->Keys[2]="Вид модуляции";
        ValueListEditor1->ItemProps[1]->PickList = s2;
 
    delete sl;
        delete s2;
}
void __fastcall TForm1::ValueListEditor1SetEditText(TObject *Sender,
      int ACol, int ARow, const AnsiString Value)
{
        if(ACol!=1) return;
        if(Value=="") return;
    if(ValueListEditor1->Keys[ARow]=="Качество")
        {
                if(Value=="Хорошо")
                {
                        ValueListEditor1->OnSetEditText = NULL;
 
                        ValueListEditor1->Strings->Clear();
                        ValueListEditor1->Refresh();
 
                        ValueListEditor1->OnSetEditText = ValueListEditor1SetEditText;
                }
        }
}

// Header-файл, класс формы:
 
// ...
private: // User declarations
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_USER+1, TMessage, WMUSER1)
    END_MESSAGE_MAP(TForm)
    void __fastcall WMUSER1(TMessage & msg);
// ...

void __fastcall TForm1::WMUSER1(TMessage& msg)
{
    ValueListEditor1->Strings->Clear();
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::ValueListEditor1SetEditText(TObject *Sender, int ACol,
    int ARow, const UnicodeString Value)
{
    if (ACol != 1)
        return;
    if (Value == "")
        return;
    if (ValueListEditor1->Keys[ARow] == L"Качество")
    {
        if (Value == L"Хорошо")
        {
            PostMessage(this->Handle, WM_USER + 1, 0, 0L);
        }
    }
}