TDataSet *l_dataset = DBGrid1->DataSource->DataSet; DBGrid1->SelectedIndex = 0; AnsiString l_string; for (int i = 0; i < l_dataset->RecordCount; i++) { l_string = ""; for (int f = 0; f < l_dataset->FieldCount; f++) { if ( f > 0 ) l_string+= ", "; l_string+= l_dataset->Fields->Fields[f]->AsString; } // Теперь в "s" - список полей через запятую. ListBox1->Items->Add(l_string); l_dataset->Next(); }