Form3->ADOQuery1->SQL->Clear();
   Form3->ADOQuery1->SQL->Add(sql);
   Form3->ADOQuery1->Active= true;
   NewColumn =ListView1->Columns->Add();
NewColumn->Caption = "Код";
NewColumn =ListView1->Columns->Add();
NewColumn->Caption = "Полное название";
/*Form3->ADOQuery1->Open();
Form3->ADOQuery1->First();     */
ListView1->Items->BeginUpdate();
while (!Form3->ADOQuery1->Eof) {
ListView1->AddItem(Form3->ADOQuery1->FieldByName("Код")->AsString,NULL); // нулевой столбец
ListView1->AddItem(Form3->ADOQuery1->FieldByName("Полное название")->AsString,); //что тут прописать чтобы записать в первый столбец?
Form3->ADOQuery1->Next();
}
ListView1->Items->EndUpdate();