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";