Вам нужно воспользоваться свойством FieldDefs. В следующем примере список полей и их соответствующий размер передается компоненту TMemo (расположенному на форме) с именем Memo1:
procedure TForm1.ShowFields; var
i : Word;begin
Memo1.Lines.Clear; Table1.FieldDefs.Update; { должно быть вызвано,если Table1 не активна }
for i := 0 to Table1.FieldDefs.Count - 1 do With Table1.FieldDefs.Items[i] do Memo1.Lines.Add(Name + ' - ' + IntToStr(Size));end;
