[xchrom]

перевести оч просто

Код:

  ListBox1->Items->Add(Table1->Fields[i]->FieldName);
  ListBox1->Items->Add(Table1->Fields[i]->AsString);