Выпадающее меню в DBGrid

MyDBGrid->Columns->Items[6]->PickList->LoadFromFile("Список моделей.txt");

// 1. Пишем дополнительный класс для хранения строки (строка должна стать потомком TObject
struct MyStr : public TObject
{
    String Fs;
    MyStr(String s) : TObject(), Fs(s)
    {
    }
};
 
// 2. Читаем файл в список строк, и каждую строку разбиваем на 2 части: до и после точки с запятой.
// Одну из них оставляем в Strings, а вторую заносим в Objects (вот поэтому понадобился класс MyStr, ведь
// Objects может хранить только потомков TObject)
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringList *L = new TStringList;
    L->LoadFromFile("f.txt");
    for(int i = 0; i < L->Count; i++)
    {
        String s = L->Strings[i];
        int p = s.Pos(";");
        L->Objects[i] = new MyStr(Trim(s.SubString(p + 1, s.Length() - p)));
        L->Strings[i] = Trim(s.SubString(1, p - 1));
    }
    DBGrid1->Columns->Items[1]->PickList = L; // и только теперь назначаем в PickList наш список строк. Т.к. TStringList - потомок TStrings, то все нормально, у Билдера не должно быть вопросов
}
 
// 3. А вот теперь - самое интересное: в обработчике OnSetText для поля в НАБОРЕ ДАННЫХ делаем вот так:
void __fastcall TForm1::ADOTable1titleSetText(TField *Sender, const UnicodeString Text)
 
{
    // поскольку для этого поля назначен именно этот пиклист - то можно так и оставить
 
    // Итак: сначала проверяем, есть ли в пиклисте то значение, которое было выбрано.
    // Казалось бы - глупость, не может быть, чтобы его не было, но... Ведь после изменения опять отработает OnSetText, 
    // и вот тогда ничего уже менять не надо будет, потому что в пиклисте значения после точки с запятой нет.
    int ix = DBGrid1->Columns->Items[1]->PickList->IndexOf(Text); 
    if(ix >= 0)
    {
        // Если пришли сюда - то надо поменять выбранное значение на соответствующее ему значение из Objects.
        // Делаем это:
        Sender->AsString = static_cast<MyStr*>(static_cast<TStringList*>(DBGrid1->Columns->Items[1]->PickList)->Objects[ix])->Fs;
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
struct MyStr : public TObject
{
    String Fs;
    MyStr(String s) : TObject(), Fs(s)
    {
    }
};
 
// это просто самописный метод, не надо его нигде искать, не забудь только в класс формы добавить прототип.
void __fastcall TForm1::MySetText(TField *Sender, const AnsiString Text)
 
{
    if(Sender->Tag)
    {
        TStringList *picklist = reinterpret_cast<TStringList*>(Sender->Tag);
        int ix = picklist->IndexOf(Text);
        if(ix >= 0)
        {
            Sender->AsString = static_cast<MyStr*>(picklist->Objects[ix])->Fs;
        }
    }
}
 
void __fastcall TForm1::btnGetFileClick(TObject *Sender)
{
    if(OpenDialog1->Execute())
    {
        ed_fileName->Text = OpenDialog1->FileName;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::btnAssignPickerClick(TObject *Sender)
{
    TStringList *L = new TStringList;
    L->LoadFromFile(ed_fileName->Text);
    for(int i = 0; i < L->Count; i++)
    {
        String s = L->Strings[i];
        int p = s.Pos(";");
        L->Objects[i] = new MyStr(Trim(s.SubString(p + 1, s.Length() - p)));
        L->Strings[i] = Trim(s.SubString(1, p - 1));
    }
    for(int i = 0; i < DBGrid1->Columns->Count; i++)
    {
        TField *fld = 0;
        if((fld = DBGrid1->Columns->Items[i]->Field) != 0 && fld->FieldName == ed_FieldName->Text)
        {
            DBGrid1->Columns->Items[i]->PickList = L;
            fld->Tag = reinterpret_cast<int>(L);
            fld->OnSetText = MySetText;
        }
    }
}
//---------------------------------------------------------------------------