lookup->ADOQuery->Connection = DataModule1->ADOConnection1;
 lookup->ADOQuery->SQL->Text = "select id,Name,PYCode from T where uf=1";
 lookup->ADOQuery->Open();
 lookup->ListFieldIndex = 1;
 lookup->KeyField = "ID";
 lookup->ListField = "id;Name;PYCode";
 lookup->FilterFields = "Name;PYCode";